*** ����ʴ���ͤ������ Form ����Դ����բ����� ***

㹺ҧ���駵�ͧ�������ա���ʴ���ͤ���㹡óշ���Դ Form ��������բ����� ����ö�����·�� ���价�� Form ��� Event  On Current ������¹ Code �ѧ���

** Code Start **

IF Me.Recordset.RecordCount = 0 Then
     MsgBox "��ͤ�������ͧ����ʴ�"
End IF

** Code End **