㹺ҧ�ҹ��ҵ�ͧ����͡��§ҹ�ҡ�ŷ���������
��ŷ���������������ٻ�ͧ Recordset ��
DataSource �����¨��дǡ�ѡ��Ҩ���Ѻ Recordset
������Ը�˹�觷������
��� Event Open �ͧ Report ��¹ Code �ѧ���
***** Code
Start *****
Private Sub Report_Open(Cancel
As Integer)
Me.RecordSource = Rs.Name
End Sub
***** Code
End *****
��� Module �Դ Module �����������
Standard Module �ҡ�����¹ Code ������
****** Code
Start *****
Public grst As
Recordset
Public Sub testreport()
Set grst = CurrentDb.OpenRecordset(
_ "Select * from tblTest1 where longfield=4")
DoCmd.OpenReport "rptTest1",
acViewPreview
grst.Close
Set grst = Nothing
End Sub
***** Code
End *****
