بحث بواسطة قائمة في النموذج

[kamel2711]

'------------------------------------------------------------
Private Sub ComboSymbole_AfterUpdate()
On Error GoTo ComboSymbole_AfterUpdate_Err

'    DoCmd.SearchForRecord , "", acFirst, "[Symbole] = " & Str(Nz(Screen.ActiveControl, 0))
'    myFiter = "[Symbole] = '" & Str(Nz(Screen.ActiveControl, 0)) & "'"
'    myFilter = "[Symbole] like *" & Me.ComboSymbole & "*"
    myFilter = "[Symbole] = '" & Me.ComboSymbole & "'"
    '[Symbole] Like "*H3*")
    Me.Filter = myFilter
    Me.FilterOn = True
    
'    Debug.Print "Symbole = " & Me.ComboSymbole

ComboSymbole_AfterUpdate_Exit:
    Exit Sub

ComboSymbole_AfterUpdate_Err:
    MsgBox Error$
    Resume ComboSymbole_AfterUpdate_Exit

End Sub

 

ZoneListe.zip

[ASSOUSI]

السلام عليكم

أخي  هذ بحث بالكلمات أو بالحروف أو بالأرقام 

تحياتي

ZoneListe.rar

[kamel2711]

أشكر صديق  ASSOUSI  على الاضافة