منع الطباعة بشرط

[رشبد]

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

الاخوة الكرام لو ممكن اريد تعديل الماكرو في زر طباعة بحيث ادا كانت الخانة mont فارغة لايفتح التقرير ورسالة معلومات غير مكتملة

جزاكم الله خيرا

الشرط.accdb

[ابوخليل]

عليكم السلام

If IsNull(Me.mont) Then
msgbox "معلومات غير مكتملة"
Exit Sub
Else
DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير
'DoCmd.OpenReport "table1", acViewNormal  ' طباعة مباشرة
End If

 

الشرط.accdb

[رشبد]

ابوخليل

بارك الله فيك وزادك من فضله 

لو سمحت اريد اضافة في الكود 

عرض نافذة اختيار الطابعة 

[ابوخليل]

If IsNull(Me.mont) Then
msgbox "معلومات غير مكتملة"
Exit Sub
Else
DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير
DoCmd.RunCommand acCmdPrint
End If

 

[رشبد]

الف الف شكر