[ تمت الإجابة ]Run-time Error 2501 تم الغاء الإجراء

اخي الفاضل ابو غدي

السلام عليكم ورحمة الله وبركاته

ضع هذا الكود في حدث عند عدم وجود بيانات في التقرير ( خاص بالتقرير )

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next
If MsgBox("عذرا لا يوجد بيانات في التقرير", vbOKOnly) = vbOK Then
Cancel = True
End If
End Sub

اختي زهرة

رسالة الخطأ هذه تظهر في النموذج وليس في التقرير

بمعنى ان زر الامر يطلب معاينة التقرير والتقرير لا يوجدبه بيانات فتظهر الرسالة " عذرا لا يوجد بيانات" ويغلق النموذج

إلى هنا لا توجد مشاكل

المشكلة في النموذج حين لا يستطيع تنفيذ الامر " معاينة تقرير "

فتظهر رسالة الخطأ

أي اني اريد ان يكون امر معاينة التقرير في حال وجود بيانات فقط

أخي الكريم أبو غدي

ضع كود معالج الاخطاء هذا

On Error Resume Next

في بداية الكود الذي يظهر به الخطأ في النموذج - في أو سطر داخل الإجراء

أعتقد أن الكود سيكون مشابها لهذا - في حدث النقر للكوماند الذي يفتح التقرير

On Error Resume Next
DoCmd.OpenReport "tech", acViewPreview

موفق أخي الكريم

الاخت زهرة

انحلت المشكلة

بأن وضعت الكود التالي في زر أمر معاينة التقرير

On Error Resume Next 
DoCmd.OpenReport "tech", acViewPreview

بارك الله فيك اخي اكسير

اخي ابو غدي كنت اعتقد ان رسالة الخطأ ناتجه عن التقرير ولكن لا يوجد اي مشكله اذا كانت الرسالة صادرة من النموذج اليك الحل

انظر الكود الخاص بفتح التقرير سيكون بهذا الشكل

Private Sub CmdView_Click()
On Error GoTo Err_CmdView_Click

	Dim stDocName As String

	stDocName = "rptEMP"
	DoCmd.OpenReport stDocName, acPreview

Exit_CmdView_Click:
	Exit Sub

Err_CmdView_Click:
If Err.Number = 2501 Then
		Resume Next
	Else

	MsgBox Err.Description
	Resume Exit_CmdView_Click
 End If
End Sub

قم بتعديل التسميات في الكود بما لديك من زر الأمر حيث ان زر الأمر هنا اسمه CmdView لهذا تتبع كل سطر في الكود وعدل حسب ما هو موجود لديك

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

Private Sub Report_NoData(Cancel As Integer)
MsgBox "عذرا اخي ابو غدي ... صدقني لا يوجد اي بيانات في التقرير !!! حاول مرة اخرى"
Cancel = True
End Sub

وهذا مثال

zaNoDataInReport.rar

جزالك الله كل خير اختي زهرة

وفعلا خير الناس انفعهم للناس

ضبطت معي 100 %

:clapping: أبو غدي

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة