Interesting report qs????

[gdanalakshmi]

I have created a temporary table whose data I am feeding to a report.

In the report_open method, I am doing like this

Private Sub Report_Open(Cancel As Integer)

Dim intX As Integer
Dim DB As DAO.Database
Dim qdf As Recordset

Set DB = CurrentDb

Set mrstReport = DB.OpenRecordset("TestTmpTable")
mintColumnCount = mrstReport.Fields.Count

End Sub

In the Detail Format method, I am doing like this
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim intX As Integer
While Not mrstReport.EOF = True
For intX = 1 To mintColumnCount
'Me("Col" + Format(intX)) = mrstReport(intX - 1)
Me("Col" + Format(intX)) = mrstReport(intX - 1)
Next intX

mrstReport.MoveNext
Wend
End Sub

I am able to see only the last record of the table. I donot know how to fix it.

Help me please...

 

[Pat Hartman]

You need to bind the report to the temp table or a query (you don't really need to create a temp table for this purpose). If the column names are variable as your code seems to indicate, take a look at the crosstab sample in the solutions database. You can download the A2K version from the following link:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/bapp2000/html/mdbdownload.asp

 

[gdanalakshmi]

I have done a dynamic crosstab report.
But this case is totally different. I have a table generated dynamically in my program, and my I trying to feed the table to the report. After the report is printed ,, I then delete the table since I will need it no longer.
I donot know how to print all the records in the table to the report???

 

[Pat Hartman]

Reports need to have a recordsource. That recordsource can be either a table name or a query name.