عرض رسالة تفيد بان السجل غير موجود عند الاستعلام

للرفع ارجو المساعدة

عن طريق زر امر بواسطة الكود التالي:

Private Sub Command1_Click()
    If DCount("*", "اسم الاستعلام") = 0 Then
        MsgBox "لا توجد بيانات للعرض أو مطابقة"
    Else
        DoCmd.OpenForm ...
    End If
End Sub

أو عن طريق نموذج يفتح خال من البيانات يغلق بعد ظهور رسالة التنبيه:

Private Sub Form_Open(Cancel As Integer)
    If Me.Recordset.RecordCount = 0 Then
        MsgBox "لا توجد بيانات للعرض"
        Cancel = True
        Exit Sub
    End If

رااااااائع جدا اخي الكريم

ولكن ملاحظة صغيرة بالنسبة للكود على النموذج انه بعد ان يعطي رسالة يخرج من الاكسيس اريده ان يفتح نموذج الشاشة الرئيسية مثلا

الجواب في الكود الأول فاستبدل عبارة Cancel = True بالأمر الخاص بفتح النموذج DoCmd.OpenForm ...

جزاك الله خيرا اخي العزيز biskra

اخيار ضبطت ولله الحمد