How to Concatenate String Criteria

[ColPat]

Hi, Hoping some kind person can help me with this piece of code.
I am trying to concatenate multiple string criteria to make a table search filter. From combo box choices I can make each criteria but can't work out how to join them - see line in blue.
I have tried BuildCriteria but the second filter field name is enclosed in "" not [] so it doesn't work


Private Sub cbEmployeeName_AfterUpdate()
strName = ""
strName = Me.cbEmployeeName.Column(0)
End Sub
__________________________________________________ __
Private Sub cbEqID_AfterUpdate()
strEquip = ""
strEquip = Me.cbEqID.Column(0)
End Sub
__________________________________________________ _____
Private Sub coPreviewWOReport_Click()
On Error GoTo Err_coPreviewWOReport_Click
filterName = ""


filterEquip = ""
strCriteria = ""
Dim stDocName As String
stDocName = "WOListing"

If Not IsNull(strName) Then
filterName = "[EmployeeID]='" & strName & "'"
End If

If Not IsNull(strEquip) Then
filterEquip = "[EqID]='" & strEquip & "'"
End If

'strCriteria = How do I join filterName "AND" filterEquip
DoCmd.OpenReport stDocName, acPreview, , strCriteria

Exit_coPreviewWOReport_Click:
Exit Sub

Err_coPreviewWOReport_Click:
MsgBox Err.Description
Resume Exit_coPreviewWOReport_Click

End Sub

[pbaldy]

Since the thread is marked solved, I assume you found a solution. It might help someone searching later if you post your solution.

[ColPat]

Got BuildCriteria to work so end result is - not sure if it is the best coding but seems to work ok

Private Sub coPreviewWOReport_Click()
On Error GoTo Err_coPreviewWOReport_Click

strCriteria = ""
Dim stDocName As String
stDocName = "WOListing"

If Not IsNull(Me.cbEmployeeName.Column(0)) Then
strCriteria = BuildCriteria("EmployeeID", dbText, Me.cbEmployeeName.Column(0))
End If

If Not IsNull(Me.cbEqID.Column(0)) Then
If strCriteria = "" Or IsNull(strCriteria) Then
strCriteria = BuildCriteria("EqID", dbText, Me.cbEqID.Column(0))
Else
strCriteria = strCriteria & " AND " & BuildCriteria("EqID", dbText, Me.cbEqID.Column(0))
End If
End If

If Not IsNull(Me.cbLocation.Column(0)) Then
If strCriteria = "" Or IsNull(strCriteria) Then
strCriteria = BuildCriteria("EqLocation", dbText, Me.cbLocation.Column(0))
Else
strCriteria = strCriteria & " AND " & BuildCriteria("EqLocation", dbText, Me.cbLocation.Column(0))
End If
End If

If Not IsNull(Me.cbPriority.Column(0)) Then
If strCriteria = "" Or IsNull(strCriteria) Then
strCriteria = BuildCriteria("WOPriority", dbText, Me.cbPriority.Column(0))
Else
strCriteria = strCriteria & " AND " & BuildCriteria("WOPriority", dbText, Me.cbPriority.Column(0))
End If
End If

If Not IsNull(Me.cbClassification.Column(0)) Then
If strCriteria = "" Or IsNull(strCriteria) Then
strCriteria = BuildCriteria("WOClassification", dbText, Me.cbClassification.Column(0))
Else
strCriteria = strCriteria & " AND " & BuildCriteria("WOClassification", dbText, Me.cbClassification.Column(0))
End If
End If

If Not IsNull(Me.cbWOStatus.Column(0)) Then
If strCriteria = "" Or IsNull(strCriteria) Then
strCriteria = BuildCriteria("WOClosed", dbText, Me.cbWOStatus.Column(0))
Else
strCriteria = strCriteria & " AND " & BuildCriteria("WOClosed", dbText, Me.cbWOStatus.Column(0))
End If
End If

DoCmd.OpenReport stDocName, acPreview, , strCriteria

Exit_coPreviewWOReport_Click:
Exit Sub

Err_coPreviewWOReport_Click:
MsgBox Err.Description
Resume Exit_coPreviewWOReport_Click

End Sub