Using a string variable to reference a report object

[AaronWestcott via AccessMonster.com]

I am trying to use a

with Reports!"Report name"
.property
end with

though I would like "report name" to be string variable.

Is this possible and if so how would one go about doing this?

Thanks.

 

[Douglas J. Steele]

Dim strReportName As String

strReportName = "Report Name"
With Reports(strReportName)

End With

 

[Bernie]

Dim strReportName As String

strReportName = "Report Name"
With Reports(strReportName)

End With

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)





Private Sub Trip_Sheet_Click()

If Forms!frmTripheader!tabTripHeaderID <> "" Then
Call Fuel_Click
rep = "Trip Sheet"
repname = "repTripSheet"
repquery = strSQL
reptitle = "Trip Sheet"
Call OpenReport(rep, repquery, reptitle, repname)
Else
MsgBox ("Please chose trip"), vbInformation, "Trip Sheet"

End If

End Sub


then you need this routine:

Public Function OpenReport(rep, repquery, reptitle, repname)

DoCmd.OpenReport repname, acDesign
Reports(repname).RecordSource = repquery
'Reports(repname)!Title.Caption = reptitle
DoCmd.Close acReport, (repname), acSaveYes
DoCmd.OpenReport (repname), acPreview

End Function

Main advantage:

Routine passes on datasource, report title etc.

 

[AaronWestcott via AccessMonster.com]

Thanks Doug.

Dim strReportName As String

strReportName = "Report Name"
With Reports(strReportName)

End With

I am trying to use a

[quoted text clipped - 7 lines]

Thanks.