دمج ثلاثة قوائم منسدلة خاصة بالبحث بواحدة

[محمد التميمي]

السلام عليكم:

في الملف المرفق لدي ثلاث قوائم منسدلة للبحث الاولى بحث برقم التسلسل والثانية بحث برقم الموظف والثالثة بحث برمز الوثيقة مع اكوادها المنفصلة:

المطلوب اخواني الكرام:

امكانية دمج ثلاثة قوائم بحث مع اكوادها بواحدة لتكون قائمة منسدلة واحدة متعددة البحث بنفس الوقت (برقم التسلسل / وبرقم الموظف / وبرقم الوثيقة)

مع فائق الشكر والتقدير....

البيانات.accdb

[Eng.Qassim]

وعليكم السلام..

حسب علمي ان القائمة المنسدلة تأخذ قيمة واحدة عند البحث..

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

لربما احد الاخوة لديه فكرة معينة...

[Eng.Qassim]

هذه محاولة ..ربما تستفيد منها

مربع النص يبحث عن الاحرف الاولى او الاولى والثانية

البيانات.rar

[محمد التميمي]

1 ساعه مضت, Eng.Qassim said:

هذه محاولة ..ربما تستفيد منها

مربع النص يبحث عن الاحرف الاولى او الاولى والثانية

البيانات.rar 42.15 kB · 2 downloads

السلام عليكم

اجابة جيدة بارك الله بجهودكم اخي الكريم شكرا جزيلا..

[أبوبسمله]

السلام عليكم

مشاركه مع اخى الغالى بشمهندس قاسم @Eng.Qassim جزاه الله عنا كل خير

بالتوفيق

البيانات_1.accdb

 

 

 

 

تم تعديل يناير 5 بواسطه أبوبسمله

[Eng.Qassim]

1 ساعه مضت, أبوبسمله said:

مشاركه مع اخى الغالى بشمهندس قاسم

اخي ومعلمي الغالي @أبوبسمله

غلبتني والله بأستخدامك ال UNION

راحت عن بالي...على كل حال زيادة الخير خيرين لاني كنت اظن ان القائمة المنسدلة تبحث في بيانات واحدة

انا عن نفسي اعطيك  اجابة جيدة بعد اذن الاخ @محمد التميمي

تم تعديل يناير 4 بواسطه Eng.Qassim

[محمد التميمي]

12 ساعات مضت, أبوبسمله said:

السلام عليكم

مشاركه مع اخى الغالى بشمهندس قاسم @Eng.Qassim جزاه الله عنا كل خير

بالتوفيق

البيانات_1.accdb 472 kB · 7 downloads

السلام عليكم

مشاركه مع اخى الغالى بشمهندس قاسم @Eng.Qassim جزاه الله عنا كل خير

بالتوفيق

السلام عليكم:

جزاك الله الف خير اخي الكريم ابو بسملة هذا ما كنت اطمح اليه شكرا جزيلا 

شكرا اخي الكريم قاسم

تم تعديل يناير 5 بواسطه محمد التميمي

[أبوبسمله]

14 ساعات مضت, Eng.Qassim said:

غلبتني والله بأستخدامك ال UNION

ولا غلب ولا حاجه بشمهندسنا الغالى ساعات الواحد مش بيكون مركز وبيفكر فى اتجاه واحد بس وجزاك الله خيرا على مساعدتك لاخوانك بما فتح الله عليك 🌹

واياكم اخى @محمد التميمي

بالتوفيق

[ابو عارف]

السلام عليكم و رحمة الله و بركاته

 ماشاء الله عليكم اساتذة الكرام على حلولكم الرائعة
حبيت اشارككم فكرة بسيطة الا وهي استغناءعن وضع سطر  On Error Resume Next في الكود باستخدام دالة Val لمقارنة معايير قيمة حقل رقمي مع قيمة حقل نصي
كما هو في مثال التالي

Dim strSql As String
    strSql = "[Key] = " & Val([txtSearch])
    strSql = strSql & " OR [Number] = '" & Me![txtSearch] & "'"
    strSql = strSql & " OR [CardNumber] = '" & Me![txtSearch] & "'"
    DoCmd.SearchForRecord , , acFirst, strSql

و أمر SearchForRecord بدلا من Recordset.Clone مجرد للاختصار في الكود

و لكم مني أجمل تحايا

[أبوبسمله]

21 ساعات مضت, ابو عارف said:

السلام عليكم و رحمة الله و بركاته

 ماشاء الله عليكم اساتذة الكرام على حلولكم الرائعة
حبيت اشارككم فكرة بسيطة الا وهي استغناءعن وضع سطر  On Error Resume Next في الكود باستخدام دالة Val لمقارنة معايير قيمة حقل رقمي مع قيمة حقل نصي
كما هو في مثال التالي

Dim strSql As String
    strSql = "[Key] = " & Val([txtSearch])
    strSql = strSql & " OR [Number] = '" & Me![txtSearch] & "'"
    strSql = strSql & " OR [CardNumber] = '" & Me![txtSearch] & "'"
    DoCmd.SearchForRecord , , acFirst, strSql

و أمر SearchForRecord بدلا من Recordset.Clone مجرد للاختصار في الكود

و لكم مني أجمل تحايا

وعليكم السلام ورحمه الله وبركاته

احسنت اخى ابو عارف احسن الله اليك كما احسنت الينا وجزاكالله عنا كل خير 🌹

تقبل تحياتى