اذا كان الاستعلام فارغ نفذ شرط معين

[monm]

عند الضغط على مفتاح معاينة التقرير المبنى على استعلام عندم لا يوجد به بيانات اريد أن يكتب عبارة لا يوجد طلاب 

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

dgree.rar

[Shivan Rekany]

منذ ساعه, monm said:

عند الضغط على مفتاح معاينة التقرير المبنى على استعلام عندم لا يوجد به بيانات اريد أن يكتب عبارة لا يوجد طلاب 

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

dgree.rar

عندك طريقتين

اولا والاولى  هو ان تكتب هذا تلصق في محرر فيجوال للتقرير

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "لا يوجد طلاب"
    Cancel = True
End Sub

والطريقة الثانية هو كتابة الكود عند الضغط على زر فتح التقرير وهو

Private Sub أمر0_Click()
    If DCount("*", "main1") = 0 Then
        MsgBox "لا يوجد طلاب"
    Else
        DoCmd.OpenReport "Rep2", acViewPreview
        DoCmd.Maximize
    End If
End Sub

اتفضل اليك قاعدتك بعد تعديل بكلا طريقين

 

dgree (2).rar

[monm]

لك جزيل الشكر والتقدير على الاستجابة السريعة 

والسؤال لماذا لم يصلح استخدام 

if main1 is null

لقد استخدمتها وحضرتك غيرتها 

نرجوا شرح الكود 

وشكرا