vhung
Member
- Local time
- Today, 02:59
- Joined
- Jul 8, 2020
- Messages
- 235
>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
Last edited: