طباعة مجموعة تقارير بشرط وجود قيمه

[gelani]

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

عندي عدد من التقارير وأرغب في طباعتها مع بعض . واجهتني مشكلة وهي ان بعض التقارير لا تحتوي على قيمة واضطر الى تمزيق الورق بعد الطباعة .

كيف استطيع طباعة اكثر من تقرير وإلغاء طباعة أي تقرير لا يحتوي على قيمه في خانة المجموع ( total ) وقد حاولت وجربت ولم تنجح الطريقة أدناه .

    If Me.total.Value = 0 Then
 
    DoCmd.Close acReport, "grama"
Else
    DoCmd.PrintOut

    DoCmd.Close acReport, "grama
end if 

مع اجمل تحيه للجميع .

[jjafferr]

وعليكم السلام

 

انت تفتح التقرير ، ثم تطبعه ، لماذا !!

مافي داعي لهذا ، جرب هذا

if nz(me.total,0)<>0 then
  DoCmd.OpenReport "grama"
end if

 

جعفر

[gelani]

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

رائع جداً أخي جعفر الكود يعمل بشكل رائع إلا أنه يطبع التقرير سواء كان المجموع صفر أو أكبر من صفر .

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

مع شكري وتقديري .