Opening report from a form field as parameter

[Alain]

Hi ,

I would like to know on how to fix this problem when I open a report with a
criteria as a filter,
"The Action or Method requires a ReportName Argument" is showing at the
docmd.openreport

Here is the code I use on my form
Private Sub btnGenerateReport_Click()
If cboDivision.Value <> "" Then
DataExchange.SetHeading cboDivision.Value
DoCmd.OpenReport rptRentRoll, acViewPreview
DoCmd.Maximize
Else
MsgBox "Veuillez sélectionner une bannière de la liste déroulante."
End If
End Sub
and here is the code I use on my report
Me.FilterOn = True
Me.Filter = "Division like '" & Forms!ReportGenerator!cboDivision.Value
& "*'"

TIA

Alain

 

[Duane Hookom]

Consider changing your code to:

Private Sub btnGenerateReport_Click()
Dim strWhere as String
If cboDivision.Value <> "" Then
DataExchange.SetHeading cboDivision.Value
strWhere = "[Division] like '" & Me.cboDivision & "*'"
DoCmd.OpenReport rptRentRoll, acViewPreview, , strWhere
DoCmd.Maximize
Else
MsgBox "Veuillez sélectionner une bannière de la liste déroulante."
End If
End Sub

 

[Alain]

Thanks Duane,
just tried it and it still give me the same error
The Action or Method requires a ReportName Argument
at the docmd.openreport line

Alain

Consider changing your code to:

Private Sub btnGenerateReport_Click()
Dim strWhere as String
If cboDivision.Value <> "" Then
DataExchange.SetHeading cboDivision.Value
strWhere = "[Division] like '" & Me.cboDivision & "*'"
DoCmd.OpenReport rptRentRoll, acViewPreview, , strWhere
DoCmd.Maximize
Else
MsgBox "Veuillez sélectionner une bannière de la liste déroulante."
End If
End Sub

--
Duane Hookom
MS Access MVP

Hi ,

I would like to know on how to fix this problem when I open a report with
a criteria as a filter,
"The Action or Method requires a ReportName Argument" is showing at the
docmd.openreport

Here is the code I use on my form
Private Sub btnGenerateReport_Click()
If cboDivision.Value <> "" Then
DataExchange.SetHeading cboDivision.Value
DoCmd.OpenReport rptRentRoll, acViewPreview
DoCmd.Maximize
Else
MsgBox "Veuillez sélectionner une bannière de la liste
déroulante."
End If
End Sub
and here is the code I use on my report
Me.FilterOn = True
Me.Filter = "Division like '" &
Forms!ReportGenerator!cboDivision.Value & "*'"

TIA

Alain

 

[fredg]

Hi ,

I would like to know on how to fix this problem when I open a report with a
criteria as a filter,
"The Action or Method requires a ReportName Argument" is showing at the
docmd.openreport

Here is the code I use on my form
Private Sub btnGenerateReport_Click()
If cboDivision.Value <> "" Then
DataExchange.SetHeading cboDivision.Value
DoCmd.OpenReport rptRentRoll, acViewPreview
DoCmd.Maximize
Else
MsgBox "Veuillez sélectionner une bannière de la liste déroulante."
End If
End Sub
and here is the code I use on my report
Me.FilterOn = True
Me.Filter = "Division like '" & Forms!ReportGenerator!cboDivision.Value
& "*'"

TIA

Alain

The name of the report must be enclosed within quotes:
DoCmd.OpenReport "rptRentRoll", acViewPreview

I would also use the OpenReport's Where argument to filter the
records, instead of setting the Report's Filter.

If the Combo box bound column is Text (as indicated):

DoCmd.OpenReport "rptRentRoll", acViewPreview, , "Division like '" &
Me!cboDivision & "*'"

No need to explicitly use the Value property as Value is the default.

 

[Alain]

Thanks Fred,
works good

Alain

The name of the report must be enclosed within quotes:
DoCmd.OpenReport "rptRentRoll", acViewPreview

I would also use the OpenReport's Where argument to filter the
records, instead of setting the Report's Filter.

If the Combo box bound column is Text (as indicated):

DoCmd.OpenReport "rptRentRoll", acViewPreview, , "Division like '" &
Me!cboDivision & "*'"

No need to explicitly use the Value property as Value is the default.