عدد النسخ عند طباعه التقرير

[النجاشي]

السلام عليكم احبتي

المطلوب عندي تقرير اريد كود اكون اكتب عدد النسخ بالنموذج ينسخ التقرير حسب العدد المسجل بالنموذج

تحياني احبتي

[essam rabea]

39 دقائق مضت, ابو زاهر said:

المطلوب عندي تقرير اريد كود اكون اكتب عدد النسخ بالنموذج ينسخ التقرير حسب العدد المسجل بالنموذج

If IsNull(إسم مربع النص المكتوب فيه عدد النسخ) = True Or إسم مربع النص المكتوب فيه عدد النسخ = 0 Then
MsgBox "لم تدخل عدد النسخ"
إسم مربع النص المكتوب فيه عدد النسخ.SetFocus
Else
DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report
DoCmd.PrintOut , , , , إسم مربع النص المكتوب فيه عدد النسخ, qty
DoCmd.Close acReport, "إسم التقرير", acSaveNo
End If

 

 

[النجاشي]

ممتاز بارك الله فيك استاذي اذا بدي ان لايشوف المستخدم التقرير 

[ابو ياسين المشولي]

28 دقائق مضت, ابو زاهر said:

ممتاز بارك الله فيك استاذي اذا بدي ان لايشوف المستخدم التقرير 

غير هذا

DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report
الى
DoCmd.OpenReport ("إسم التقرير"), acViewNormal ' open report