RecordSet Property |
[Top] [Chapter] [Previous] [Next] |
Applies to Declaration IUnknown RecordSet; Description You can assign a DAO.RecordSet interface to this property. Then use Report.SetAutomatic(1, "") to activate the automatic mode.
MS-Access Example:
Private Sub Create_Report_Click() Const strQueryName = "ORDERS Query" Dim db As Database Dim td As WPDLLInt Dim RepRS As Recordset Set td = WPDLLInt1.Object Set db = CurrentDb() ' Open pointer to current database Set RepRS = db.OpenRecordset(strQueryName) ' Open recordset on saved query td.Report.Recordset = RepRS If td.Report.SetAutomatic(1, "") Then td.Report.CreateReport End If RepRS.Close db.Close End Sub |