kamel2711 قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
ASSOUSI قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 السلام عليكم أخي هذ بحث بالكلمات أو بالحروف أو بالأرقام تحياتي ZoneListe.rar 1 رابط هذا التعليق شارك More sharing options...
kamel2711 قام بنشر مارس 28, 2017 الكاتب مشاركة قام بنشر مارس 28, 2017 أشكر صديق ASSOUSI على الاضافة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.