*** �з����ҧ�ö�ҵ�ͧ������ Report �Դ����ͧ� �����辺�������� ***

㹺ҧ������ҵ�ͧ��������� Report �ʴ�˹�Ҩ���ҧ�����㹡óշ����辺���������
�������ö�������� Event On NoData ��¹ Code �ѧ���仹��

'************* Code Start *************

Private Sub Report_NoData(Cancel As Integer)
     MsgBox "��辺�����������" Cancel = True
End Sub

'************* Code End *************

********* Report �лԴ�ͧ�ѵ��ѵ� ����Ҷ���繡���Դ Report ������躹 Form (�Դ�»���) ���繨е�ͧ�ѡ Error �ѧ���

*********** Code Start ************

Private Sub CmdOpenReport_Click()
     On Error Resume Next
     DoCmd.OpenReport "SomeReport", acViewPreview
     If Err = 2501 Then Err.Clear
End Sub

'*********** Code End ************