السلام عليكم ورحمة الله وبركاته .. وبعد :
3- السؤال الثالث :
لدي نموذج لا يستند على أي جدول أو أستعلام .. وبه ثلاثة نماذج فرعية مبينية على أستعلامات ... اسماء الناذج الفرعية ( الرخص - سيارات - أقامات ) .
هذه النماذج تظهر البيانات المتحققه لمعيار البحث في الأستعلام ..
لكن إذا كانت مخالفة لمعيار الأستعلام فإن النماذج الفرعية تظهرفارغه ..
المطلوب :
عند فتح القائمة الرئيسية للبرنامج تظهر رسالة تنبيه بأن هناك سجل في نموذج السيارات أو الرخص أو الأقامات .. هل تريد معاينة الكشف .. نعم أفتح الكشف - لا = أغلق الكشف وأستمر في فتح القائمة الرئيسية للبرنامج .
أما إذا لا يوجد أي سجل في أي نموذج فرعي فلا تخبرني بشيء .
************
وقد حاولت أستخدام الكود التالي
Dim tmprs1 As Recordset
Set tmprs1 = Me.RecordsetClone
If tmprs1.RecordCount = 0 Then
DoCmd.RunMacro "أغلاق كشف السيارات المنتهية"
ولكن لم ينفع ذلك ...
فما هو الأجراء المناسب والحالة هذه ..
والسلام عليكم .. وجزاكم الله خيراً .