كود لزر يفتح تقريرين

تفضل يا أخي المرفق

وهذا شرح بسيط لما تم عمله :

افيح التقرير في وضع التصميم وفي حدث On No Data ضع الكود الأتي:

MsgBox "No Data to print in " & Me.Name, vbInformation, Me.Name
Cancel = True

ثم احفظ التقرير واغلقه

افعل نفس الشئ في التقرير الثاني

ثم احفظه واغلقه

اذهب الى النموذج وافتحه في وضع التصميم ثم على زر الامر ومن خصائص تحت حدث

On Click

ضع هذا الكود

	Dim stDocName As String
	Dim stDocName1 As String
	stDocName = "Receive"
	stDocName1 = "SendTo"
	On Error Resume Next
	DoCmd.OpenReport stDocName, acPreview
	DoCmd.OpenReport stDocName1, acPreview

وطبعاً ستلاحظ أنني قمت بتغير أسماء التقريرين إلى أسماء أنجليزية حتى أستطيع التعامل بهما بسهولة داخل الكود وأفضل أن أستخدم هذه الطريقة عند التعامل مع أسماء الكائنات وكذلك أسماء الحقول.

أخي بعدها استخدم النموذج كما تريد وتستطيع الاستفادة بالاكواد في أي تقرير لا تريد طباعته إذا كان لا يحتوي على بيانات.

db2.rar

جزاك الله تعالى أحسن الجزاء أستاذي team2000

لقد تفهمت ما أرشدتني إليه رغم أن المرفق الذي أرفقته ربما لايتناسب مع جوابك.

وشكرا جزيلا.

أسف أخي على المرفق إذا كان غير صحيح فتقبل عذري على عدم التركيز.