البحث بجزء من الكلمة

[أبو امين]

 

المثال : البحث بجزء من الكلمة.accdb

[ابو جودي]

الموضوع اصلا من منتدى اوفيسنا ليش التكرار ؟

فى راس محرر اكواد النموذج تجد السطرين التاليين

'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى
'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان

لان كنت انا صاحب الفكرة وتمت على يد الاستاذ @رمهان 

رجاء تقليل المواضيع المكرره

 

والاكواد بالمسميات التى وضعتها

'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى
'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان



''رمهان
''اوفيسنا

Private Sub comb_Search_AfterUpdate()
    On Error Resume Next
Me.Filter = Nz(comb_Search, "id") & " Like ""*" & txt_Search & "*""": Me.FilterOn = True
End Sub

''رمهان
''اوفيسنا

Private Sub txt_Search_Change()
    On Error Resume Next
        FindAsType = txt_Search.Text
        Me.Filter = (Nz(comb_Search, "ID")) & " Like ""*" & FindAsType & "*""": Me.FilterOn = True
        txt_Search.SetFocus
        txt_Search = FindAsType
        txt_Search.SelStart = Len(FindAsType)
End Sub

 

يغلق للتكرار

تم تعديل يوليو 18, 2022 بواسطه ابو جودي
يغلق للتكرار