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

kamel2711 · مارس 27, 2017

'------------------------------------------------------------
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