• ** There has been a recent site upgrade. Please clear your browser cache to avoid issues. **
  • New forum feature - post voting and best solution

    Check out this thread for the details: https://www.access-programmers.co.uk/forums/threads/new-forum-feature-post-voting-and-best-answer.314134/

    This new feature looks great to me! :)

  • We now have 3 forum themes

    Go for the default (light) theme, Shades of Grey or Shades of Blue. I just added the Blue one.

    The thread about it is here: https://www.access-programmers.co.uk/forums/threads/new-forum-theme-shades-of-blue.314136/

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

vhung

Member
Local time
Yesterday, 20:47
Joined
Jul 8, 2020
Messages
144
>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: 15
Last edited:

Users who are viewing this thread

Top Bottom