الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه maimouni في 9 نوفمبر 2009 · 3 رد · 431 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

أساتذتي الأعزاء أرجو منكم مساعدتي في وضع كود لزر أمر يفتح تقريرين الموجود في نموذج 1.

التقرير الذي توجد به بيانات يتم طباعته وقفله.

والذي لا توجد به بيانات يتم قفله فقط.

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

db1.rar

#2

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

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

افيح التقرير في وضع التصميم وفي حدث 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

#3

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

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

وشكرا جزيلا.

#4

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

مواضيع مشابهة