RecordSet Property

Applies to

IWPReport

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