أبو امين قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 المثال : البحث بجزء من الكلمة.accdb 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 18, 2022 مشاركة قام بنشر يوليو 18, 2022 (معدل) الموضوع اصلا من منتدى اوفيسنا ليش التكرار ؟ فى راس محرر اكواد النموذج تجد السطرين التاليين 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان لان كنت انا صاحب الفكرة وتمت على يد الاستاذ @رمهان رجاء تقليل المواضيع المكرره والاكواد بالمسميات التى وضعتها 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان ''رمهان ''اوفيسنا 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 بواسطه ابو جودي يغلق للتكرار رابط هذا التعليق شارك More sharing options...
الردود الموصى بها