Solved Acddb: Filter item(s) not on the combo list (1 Viewer)

[vhung]

>sample codes, very useful

   Dim strWhere As String
   Dim lngLen As Long

    If Not IsNull(Me.SelectPropertyName) Then
        strWhere = strWhere & "[PROPERTY TYPE] like ""*" & Me!SelectPropertyName & "*"" AND "
    End If

       lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then    
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else                 
        strWhere = Left$(strWhere, lngLen)
                            Debug.Print strWhere
        Me.Filter = strWhere
        Me.FilterOn = True
    End If