السلام عليكم
المرفق نموذج بحث بحاجة لبعض المساعدة من لدنكم
نموذج بحث بحاجة لتعديل
مغلق
لطفا وليس أمرا
القليل من وقتكم للمساعدة
اخي العزيز
سلام من الله عليكم
هل يمكن عمل البحث عن طريق combobox
يكون الخيار الاول---- البحث بالتاريخ
والخيار الثاني-----البحث بالرقم الاول والثاني والثالث
والخيار الثالث----البحث بالتقرير1
والخيار الرابع----البحث بالتقرير2
المهم انه بعد ظهور نتيجة البحث انتقل للفورم الرئيسي
اتمنى ان اكون اوصلت المعلومة المطلوبة
شاكرا ومقدرا لك ...
السلام عليكم
بداية شكرا على اهتمامك
ثانيا: كما ارى اخي العزيز بأن البحث منفصل في الرقم 1 و2و3 اي كل بحث على حدا
المراد اخي ان يكون البحث في الرقم 1 والرقم2 والرقم 3 مع بعض من خلال خيار البحث في combobox
دمت في رعاية الله
أخي الغالي
حاول تجرب انت المهم ان فكرة عمل البحث وصلتك مبدأيا والباقي عليك في تطوير مشروعك
( نصحية لوجة الله تعالي جرب و حاول وطور نفسك )
اليك الملف بعد اجراء تعديل عليه مرة اخري
بالتوفيق
اخي العزيز
لا زلت بعيدا عن ما اريد بالضبط
اريد ان ابحث عن رقم داخل خانة الرقم ا والرقم2 والرقم3
اريد حصر البحث في الثلاث خانات واعتبارها خانه واحدة لتسهيل البحث
انا لا اعرف اين اجد الرقم مثلا 197825 هل هو في خانة رقم 1 او 2 او 3
مع العلم بأنه مكرر في الخانات الثلاث
المطلوب في الكمبوبكس خيار (البحث بالرقم) ومداه الخانة رقم1 والرقم 2 والرقم3
بكم نحن نرتقي ونتطور
دمت في رعاية الله
تفضل يا أخي ملفك بعد إجراء التعديلات اللازمة عليه
حاول أن تبحث عن رقمك وهو 197825 والذي يوجد في حقل NO1 & NO2 & NO3
ان شاء الله ستجد ما يلبي رغباتك فلقد وضعت لك تعديل بسيط في الكود ليصبح مدي البحث هذه الثلاثة حقول فقط ليصبح شكل الكود كما يلي
Private Sub Txtsearch_Change() Dim vSearchString As String vSearchString = "*" & Txtsearch.Text & "*" If Not (Txtsearch.Text = "") Then Me.Tbl1_subform.Form.Filter = "NO1 & NO2 & NO3 like '" & vSearchString & "'" Me.Tbl1_subform.Form.FilterOn = True Else: Me.Tbl1_subform.Form.FilterOn = False End If End Sub
مرفق الملف علي آخر تعديل
بالتوفيق
هذا الموضوع مغلق.