درخواست پرینت با گذاشتن شرط در صورت وجود دیتا [بایگانی]

View Full Version : درخواست پرینت با گذاشتن شرط در صورت وجود دیتا

Mansoureghtedar

سه شنبه 12 بهمن 1395, 13:55 عصر

با سلام خدمت اساتید
من میخوام از یک فرم یک گزارش تهیه کنم. وقتی که باتن گزارش رو بزنم گزارش مستقیماً پرینت بشه. البته در صورت وجود دیتا در گزارش. و اگر دیتا نداشت خطارو بصورت یک MSGBOX به کاربر برگردونه (اطلاع بده). لطفاً راهنمایی کنید. ممنونم

reza_1199

سه شنبه 12 بهمن 1395, 19:33 عصر

دوست عزیز شما میتونید در خاصیت کلکیک کلید مربوطه بنویسید
On error goto err_command_click
Dim stdocname as string
" نام گزارش"=stdocname
Docmd.openrepore stdocname ,acpreview
Exit_command_click
Exit sub
Err_command_click
"گزارش مورد نظر خالی است " Msgbox
Resume exit_command_click
End sub

Mansoureghtedar

چهارشنبه 13 بهمن 1395, 10:29 صبح

سلام و ممنون از راهنماییتون
ولی موفق نشدم
:ناراحت::ناراحت::ناراحت::نار� �حت:

Mansoureghtedar

چهارشنبه 13 بهمن 1395, 11:36 صبح

میشه نمونه بزارین. لطفاً