Search with multiple criteria

[injanib]

Appreciate your help in advance.



I got the code below from another forum. It works great for two criteria fields. How can I modify it for three criteria fields?

Dim strFilter as String

If (Len(cboCommitteeName) & "") > 0 Then strFilter = "[CommitteeName]='" & cboCommitteeName & "'"
If (Len(cboStatus) & "") > 0 Then
If Len(strFilter) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "[Status]='" & cboStatus & "'"
End If
Me.Filter = strFilter
Me.FilterOn = True

[maximus]

Here is a simple example how you can build up a criteria with multiple conditions:

I have used this criteria to open a form in your case you can use it to Filter your form.


Dim strcriteria
'Determining the criteria

strCriteria = ""


If Not IsNull(Me.Student_Name) Then
strCriteria = "Student_Name='" & Me.Student_Name & "'"
End If
If Not IsNull(Me.Student_Class) Then
If Len(strCriteria) > 0 Then
strCriteria = strCriteria & " And Student_Class='" & Me.Student_Class & "'"
Else
strCriteria = "Student_Class='" & Me.Student_Class & "'"
End If
End If
If Not IsNull(Me.Student_Roll) Then
If Len(strCriteria) > 0 Then
strCriteria = strCriteria & " And Student_Roll=" & Me.Student_Roll
Else
strCriteria = "Student_Roll = " & Me.Student_Roll
End If
End If
If Not IsNull(Me.Student_DOB) Then
If Len(strCriteria) > 0 Then
strCriteria = strCriteria & " And Student_DOB=#" & Me.Student_DOB & "#"
Else
strCriteria = "Student_DOB=#" & Me.Student_DOB & "#"
End If
End If

'MsgBox strCriteria

If Len(strCriteria) > 0 Then
DoCmd.OpenForm "Table3", , , strCriteria
Else
MsgBox "Please select Criteria"
Exit Sub
End If