Criteria form for query

[jl2886]

I have a form that has unbound controls. There is a check filter-query def.

Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
       strOldFilter = Me.Filter
        If Me.LSI_Case_Number > "" Then _
            strFilter = strFilter & _
                    " AND ( [LSI Case Number] LIKE '" & Me.LSI_Case_Number & "')"
        If Me.Broker > "" Then _
             strFilter = strFilter & _
                    " AND ([Broker]='" & Me.Broker & "')"
 
         If Me.Insured_Name > "" Then _
            strFilter = strFilter & _
                    " AND ([Insured Name] Like '" & Me.Insured_Name & "')"
          If Me.Agemin > "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.Agemin & "')"
          If Me.agemax > "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.agemax & "')"
 
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
        qdf.SQL = strFilter
    End If
qdf.Close
End Sub
 

Then, in the query I used these unbound controls in the criteria statement. The query only works when I have all the values in the form filled out. If one is empty then the query will not work. One of the criteria statements look like this:
IIf(IsNull([Forms]![Query]![Broker]),"",[Forms]![Query]![Broker]). It still prompts me to fill in a value for broker when I open the query.
I don't know where to go from here.

[MMcCarthy]

Try this ...

Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
       strOldFilter = Me.Filter
        If Me.LSI_Case_Number <> "" Then _
            strFilter = strFilter & _
                    " AND ( [LSI Case Number] LIKE '" & Me.LSI_Case_Number & "')"
        If Me.Broker <> "" Then _
             strFilter = strFilter & _
                    " AND ([Broker]='" & Me.Broker & "')"
 
         If Me.Insured_Name <> "" Then _
            strFilter = strFilter & _
                    " AND ([Insured Name] Like '" & Me.Insured_Name & "')"
          If Me.Agemin <> "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.Agemin & "')"
          If Me.agemax <> "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.agemax & "')"
 
    If strFilter <> "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter <> "")
        qdf.SQL = strFilter
    End If
qdf.Close
End Sub
 

[jl2886]

Thanks, but it still prompts me for the value when the form value is empty. Is there anything else I can try?

Try this ...

Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
       strOldFilter = Me.Filter
        If Me.LSI_Case_Number <> "" Then _
            strFilter = strFilter & _
                    " AND ( [LSI Case Number] LIKE '" & Me.LSI_Case_Number & "')"
        If Me.Broker <> "" Then _
             strFilter = strFilter & _
                    " AND ([Broker]='" & Me.Broker & "')"
 
         If Me.Insured_Name <> "" Then _
            strFilter = strFilter & _
                    " AND ([Insured Name] Like '" & Me.Insured_Name & "')"
          If Me.Agemin <> "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.Agemin & "')"
          If Me.agemax <> "" Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.agemax & "')"
 
    If strFilter <> "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter <> "")
        qdf.SQL = strFilter
    End If
qdf.Close
End Sub
 

[MMcCarthy]

Try this ...

Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
       strOldFilter = Me.Filter
        If Not IsNull(Me.LSI_Case_Number) Then _
            strFilter = strFilter & _
                    " AND ( [LSI Case Number] LIKE '" & Me.LSI_Case_Number & "')"
        If Not IsNull(Me.Broker) Then _
             strFilter = strFilter & _
                    " AND ([Broker]='" & Me.Broker & "')"
 
         If Not IsNull(Me.Insured_Name) Then _
            strFilter = strFilter & _
                    " AND ([Insured Name] Like '" & Me.Insured_Name & "')"
          If Not IsNull(Me.Agemin) Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.Agemin & "')"
          If Not IsNull(Me.agemax) Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.agemax & "')"
 
    If strFilter <> "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter <> "")
        qdf.SQL = strFilter
    End If
qdf.Close
End Sub
 

[jl2886]

I think it has something to do with with the criteria expression because it is not working. mmcarthy, thank you for always trying to help me.

Try this ...

Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
       strOldFilter = Me.Filter
        If Not IsNull(Me.LSI_Case_Number) Then _
            strFilter = strFilter & _
                    " AND ( [LSI Case Number] LIKE '" & Me.LSI_Case_Number & "')"
        If Not IsNull(Me.Broker) Then _
             strFilter = strFilter & _
                    " AND ([Broker]='" & Me.Broker & "')"
 
         If Not IsNull(Me.Insured_Name) Then _
            strFilter = strFilter & _
                    " AND ([Insured Name] Like '" & Me.Insured_Name & "')"
          If Not IsNull(Me.Agemin) Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.Agemin & "')"
          If Not IsNull(Me.agemax) Then _
             strFilter = strFilter & _
                    " AND ([Age]='" & Me.agemax & "')"
 
    If strFilter <> "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter <> "")
        qdf.SQL = strFilter
    End If
qdf.Close
End Sub
 

[MMcCarthy]

I think it has something to do with with the criteria expression because it is not working. mmcarthy, thank you for always trying to help me.

You've enclosed all the textbox values with single quotes. This indicates that they are all text fields. Is this the case?