Print current record only

[jazminecat23]

Hi all - I have a form with a simple print button on it. I want the button to open my report only with the current record. here's my code:

Private Sub PrintRecord_Click()
On Error GoTo Err_PrintRecord_Click

    Dim stDocName As String

    stDocName = "VendorRequestReport"
    DoCmd.OpenReport stDocName, acViewPreview, , "VENDOR_NUM=" & Me.VENDOR_NUM
    
Exit_PrintRecord_Click:
    Exit Sub

Err_PrintRecord_Click:
    MsgBox Err.Description
    Resume Exit_PrintRecord_Click
    
End Sub

Can anyone see what I might be missing? VENDOR_NUM is a textbox, and the form is set to view a single record at a time. Thanks in advance for your help!

 

[genomon]

Vendor num may be stored as a string; if so, this should work:
DoCmd.OpenReport stDocName, acViewPreview, , "VENDOR_NUM = '" & Me.VENDOR_NUM & "'"

I wondered why the baseball was getting bigger.
Then it hit me.

 

[jazminecat23]

Hi - thanks for the reply, but it still loads the report with all records, not just the current record. If it matters, the vendor num is stored as int, and this is an adp.

 

[Spenney]

Try...

DoCmd.OpenReport stDocName, acViewPreview, , "[VENDOR_NUM]=" & [b]Forms![/b][your form name].VENDOR_NUM