Home  |   French  |   About  |   Search  | mvps.org  

What's New
Table Of Contents
Credits
Netiquette
10 Commandments 
Bugs
Tables
Queries
Forms
Reports
Modules
APIs
Strings
Date/Time
General
Downloads
Resources
Search
Feedback
mvps.org

In Memoriam

Terms of Use


VB Petition

Reports: Use a recordset as report's datasource

Author(s)
Andy Baron

A recordset has a seldom-used property, Name, that gives you the table, query or SQL string that the recordset was opened with. And this is exactly what is needed to set a recordsource.

In the Open event of the report:

Private Sub Report_Open(Cancel As Integer)
  Me.RecordSource = grst.Name
End Sub

In a standard module:

'
' This code was originally written by Andy Baron
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Andy Baron
'
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

© 1998-2010, Dev Ashish & Arvin Meyer, All rights reserved. Optimized for Microsoft Internet Explorer