ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
مثال زیر چگونگی کنسل کردن چاپ گزارشی را نشان میدهد زمانیکه داده ای وجود ندارد.جعبه پیامی کاربر را آگاه میسازد که چاپی که کنسل شده بود فقط نمایش داده میشود.
The following example shows how to cancel printing a report when it has no data. A message box notifying the user that the printing has been canceled is also displayed.
برای آزمایش این مثال رویه رویداد زیر را به یک گزارش اضافه نمائید.گزارش را زمانیکه حاوی داده ای نیست امتحان بنمائید.
To try this example, add the following event procedure to a report. Try running the report when it contains no data.
Private Sub Report_NoData(Cancel As Integer)
MsgBox "The report has no data." & _chr(13) & "Printing is canceled. " & _chr(13) & "Check the data source for the " & _chr(13) & "the correct criteria (for " & _chr(13) & "report. Make sure you entered " & _chr(13) & "example, a valid range of " & _chr(13) & "dates),." vbOKOnly + vbInformationCancel = TrueEnd Sub