تقرير لا يفتح الا بعد تصحيح البيانات

[محسن سرحان]

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

تم تعديل يونيو 11, 2016 بواسطه محسن سرحان

[ابوخليل]

Dim Untxt As Boolean
Untxt = DLookup("txt1", "Qry1")
If Untxt = False Then
DoCmd.OpenReport "ReportName", acPreview
else
Exit sub
End if

باعتبار   txt1 حقل الاسم في الاستعلام   و Qry1  هو اسم الاستعلام  و ReportName هو اسم التقرير

ضع هذا الكود في حدث  زر  فتح التقرير

[محسن سرحان]

اشكرك استاذى العزيز

وكل عام انت بخير

لكن ارجو مثال بسيط لان الكود لا يعمل معي

[محسن سرحان]

للرفع

[محسن سرحان]

للرفع

[ابوخليل]

تفضل مع تعديل طفيف على الكود

Dim Untxt
Untxt = Nz(DLookup("id", "Qry1"), 0)
If Untxt = 0 Then
DoCmd.OpenReport "Rep1", acPreview
Else
MsgBox "يوجد بيانات يجب تصحيحها"
Exit Sub
End If

 

db1.rar

[محسن سرحان]

اشكرك استاذى العزيز

وجاري التجريب