Help opening report from form using form criteria

[templeowls]

I am having trouble coding a openreport code. Basically I have a button in my form to open a report, and the criteria for the report should be based on whatever entry the user is on in the form. I am using the below code but it is not applying the criteria. Any idea what I'm doing wrong? The report's record source is qryComplaints and 'complaintnumber' is a number field.

Private Sub btnOpenReport_Click()
    DoCmd.OpenReport "rptFormReport", acViewReport, [ComplaintNumber] = Forms![frmComplaints]![ComplaintNumber], acDialog
End Sub

[Gicu]

Maybe try:

    DoCmd.OpenReport "rptFormReport", acViewReport,, "[ComplaintNumber] = " & Forms![frmComplaints]![ComplaintNumber], acDialog

EDIT: added a missing comma, your original code was adding the Filter instead of setting the Where condition
expression.OpenReport (ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)

[templeowls]

That worked! Thanks so much!

[Gicu]

[templeowls]

Actually one more question...say it wasn't a number field, would it be coded the same? (lets say for a short text field)

[Gicu]

Similar but you need to wrap it in single quotes (or double double quotes in case the text would include a single quote like in O'Brian):

DoCmd.OpenReport "rptFormReport", acViewReport,, "[ComplaintNumber] = '" & Forms![frmComplaints]![ComplaintNumber] & "'", acDialog
DoCmd.OpenReport "rptFormReport", acViewReport,, "[ComplaintNumber] = """ & Forms![frmComplaints]![ComplaintNumber] & """", acDialog

For dates you wrap them in #.

Cheers,

[templeowls]

Thank you!