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

vhung

Member
Local time
Today, 13:08
Joined
Jul 8, 2020
Messages
159
>sample codes, very useful

Code:
   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
 

Attachments

  • FilterOn.png
    FilterOn.png
    441.5 KB · Views: 25
Last edited:

Users who are viewing this thread

Top Bottom