print record in form. . .not working

[Piperlynne]

Hello,
I am using this code to allow users to print the current record on the form.
It is working for two of my other forms, but not this one. it keeps popping
up a parameter value box.

Private Sub cmdPrtProdSetupbyCust_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[Profitability_Code] = " & Me.[Profitability_Code]
DoCmd.OpenReport "rptProductSetupALL", acViewPreview, , strWhere
End If
End Sub

Profitability_Code is a number field. I have also tried it with the extra
quotes (i.e - strWhere = "[Profitability_Code] = """ &
Me.[Profitability_Code] & """")

Any clue as to why this is happening?

Any help appreciated. -
Thanks in advance.

 

[Douglas J. Steele]

Ensure that report can be opened by itself, not using the VBA. If it can't,
then odds are you've changed a field name, and the change hasn't been
replicated in the report.

Pay attention for what variable the prompt is looking: it may help pinpoint
the problem.

 

[Piperlynne]

Thank you! I knew I was overlooking something obvious.
Didn't have the field in the query for the report (been lots of revisions in
the last 2 days LOL) I feel dumb or tired.

Thanks again!

Ensure that report can be opened by itself, not using the VBA. If it can't,
then odds are you've changed a field name, and the change hasn't been
replicated in the report.

Pay attention for what variable the prompt is looking: it may help pinpoint
the problem.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hello,
I am using this code to allow users to print the current record on the
form.
It is working for two of my other forms, but not this one. it keeps
popping
up a parameter value box.

Private Sub cmdPrtProdSetupbyCust_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[Profitability_Code] = " & Me.[Profitability_Code]
DoCmd.OpenReport "rptProductSetupALL", acViewPreview, , strWhere
End If
End Sub

Profitability_Code is a number field. I have also tried it with the extra
quotes (i.e - strWhere = "[Profitability_Code] = """ &
Me.[Profitability_Code] & """")

Any clue as to why this is happening?

Any help appreciated. -
Thanks in advance.