Opening report from a form field as parameter

  • Thread starter Thread starter Alain
  • Start date Start date
A

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
 
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
 
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

Duane Hookom said:
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


Alain said:
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
Click to expand...
Click to expand...
 
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
Click to expand...

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.
 
Thanks Fred,
works good

Alain

fredg said:
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.
Click to expand...
 
Back
Top