Type Mismatch message

[Fireman1143]

I have a report which I call from a button with the following code:
Private Sub btnPrintReceipt_Click()
On Error GoTo Err_btnPrintReceipt_Click

Dim stDocName As String
Dim StrCriterion As String

stDocName = "Payment Receipt"
StrCriterion = "[ReceiptNo]=" & sbfProgramsSigned.Form![ReceiptNo]

DoCmd.OpenReport stDocName, acViewPreview, , StrCriterion
DoCmd.Close "frmProgramSignup"

Exit_btnPrintReceipt_Click:
Exit Sub

Err_btnPrintReceipt_Click:
MsgBox Err.Description
Resume Exit_btnPrintReceipt_Click

End Sub

It previews the report perfectly, but has a "Type Mismatch" message with OK button in middle of screen.
[ReceiptNo] is an integer (long). I tried various changes but haven't been able to get it.

 

[dhookom]

Is there any code running in the report?

What happens if you comment out

   [COLOR=#4E9A06]'DoCmd.Close "frmProgramSignup"[/color]

Duane
Hook'D on Access
MS Access MVP

 

[Fireman1143]

That was it. So simple and obvious I missed it.

Thanks Duane