السلام عليكم ورحمة الله وبركاته
بالمثال المرفق
يوجد نموذج اساسي ونموذج فرعي
مصدر السجلات بالنموذج الفرعي كان استعلام خارجي
فقمت بعمل استعلام مضمن داخل النموذج الفرعي
بناء على القيمتين المدخلة بالنموذج الاساسي
يوجد كود في حدث عند النقر على زر الامر ( بحث )
عبارة عن دالة dlookup تعتمد على رقم الحاسب بالاستعلام
عند عدم وجود رقم حاسب بالاستعلام تظهر رسالة بأنه لاتوجد بيانات
حاولت تطبيقها على الاستعلام المضمن بالنموذج الفرعي ولم انج
اتمنى التعديل على الكود
تحياتي
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
مثالك المرفق لا يوجد به نموذج .
الحل :
ضع نموذج مبنى على الاستعلام ... وضع هذا الحدث في النموذج عند الفتح :
Set txtmot = Me.RecordsetClone
If txtmot.RecordCount = 0 Then
MsgBox "لا يوجد بياناات ", 0, " لا يوجد بيانات"
Me.Undo
Cancel = True
Else
DoCmd.Maximize
End Ifتم تعديل هذه المشاركة بواسطة فتى الوادي في 10 يوليو 2014 في 15:25
يعطيك العافية اخي فتى الوادي
اسف أخي النموذج موجود بالمثال المرفق ولكن وضعته مخفي بسبب السرعه
بالنسبة للكود الذي وضعته لا اعتقد انه سيفي بالغرض لان النموذج فرعي داخل نموذج رئيسي
هذا هو المرفق بعد اظهار النموذج
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
الأمر بسيط إن شاء الله ...
نضع مربع نص ونسمكية txta ونحجز له قيمة تظهر عند الضغط على زر (بحث) تظهر قيمة عدد السجلات التي تنطبق عليها شروط البحث (رقم البداية - رقم النهاية )
ونضع الكود :
إذا كان القيمة = 0 اظهر رسالة لا يوجد بيانات
تم تعديل هذه المشاركة بواسطة فتى الوادي في 11 يوليو 2014 في 03:07
يعطيك العافية اخي فتي الوادي
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…