طلب مساعدة في الاستعلام

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

اخي الكريم

لقد قمت بالتعديل علي الملف المطلوب واليك الشرح :

اولا قمنا بالتعديل علي استعلام عرض الاسماء بحيث بدل من كتابة الاسم بالكامل

فقط الان يمكنك اي جزء من الاسم ( اول الاسم اخر الاسم اوحتي حرف او حرفين من الاسم )

وذلك باستخدام الامر Like وهو احد اوامر لغة SQL فهو يساعدك كثيرا بدل من معاناة كتابة الاسم بالكامل

ثانيا قمنا بتحويل الاستعلام من استعلام عادي الي استعلام انشاء جدول ( وسوف يعتبر هذا الجدول جدول ملفات مؤقتة فقط )

ولذك لارسال بيانات الاستعلام لهذا الجدول ثم عرضه منه في النموذج

ثالثا انشاء نموذج جاري التحميل ليتم تنفيذ الامر البرمجي الاتي :

DoCmd.Close
DoCmd.SetWarnings False
DoCmd.OpenQuery "بحث بالاسم"
DoCmd.OpenForm "بحث بالاسم", , , , , acHidden
If IsNull([Forms]![الاسم]![بحث بالاسم]) Then
MsgBox "لايوجد نتائج للبحث", vbInformation
DoCmd.Close acForm, "بحث بالاسم"
DoCmd.OpenForm "بيان"
Else
DoCmd.OpenForm "بحث بالاسم"
End If
DoCmd.SetWarnings True

واليك شرح هذا الكود :

يتم تنفيذ هذا الاجزاء عند عداد الوقت ( والوقت المستخدم هنا صغير جدا لا يتعدي النصف ثانية )

اولا يقوم باغلاق نموذج التحميل المفتوح

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

ثالثا يقوم بتشتغيل استعلام بحث بالاسم

رابعا يقوم بعرض بيانات هذا الاستعلام في نموذج بحث بالاسم ولكن في الوضع مخفي

ثم يقوم بتطبيق قاعدة IF

حيث اذا وجد ان قيمة حقل الاسم غير خالية اي موجود بها بيانات اذن الاستعلام به بيانات

يقوم بالعرض نموذج عرض البيانات

اما اذا وجد ان قيمة حقل الاسم خالية معني ذلك انه لا توجد بيانات للعرض هنا يقوم باظهار رسالة تنبيه تفيد انه لا يوجد بيانات

ثم يقوم بفتح النموذج الرئيسي

ثم يقوم اخيرا بتشغيل التنبيهات مرة اخري

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

========================================

نصيحة اخيرة لا تقوم ابدا بتسمية النماذج ولا الجدوال ولا الحقول بالعربي

لان ذلك يعرضك لمشاكل كثيرة جدا

حاول اهتم بالنقطة دي

========================================

بالتوفيق

22.rar