Printing one record

[andymac]

Hi guys,

I'm trying to get a form to print just one record on a report - and using this code:

Private Sub Command24_Click()

Dim strReportName As String
Dim strCriteria As String

strReportName = "Badge"
strCriteria = "[ID]='" & Me![ID] & "'"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

End Sub

It won't work though - says there's a 'data type mis-match in criteria expression'

Any thoughts?

Thanks

Andrew

 

[pr2-eugin]

If the ID is Number type do not enclose them in between single quotes..

 

[andymac]

Thanks for quick reply,

You've lost me - where have I typed something wrong? Sorry - I'm not very apt at reading code!

Andrew

 

[pr2-eugin]

Private Sub Command24_Click()
    Dim strReportName As String
    Dim strCriteria As String
    strReportName = "Badge"
    strCriteria = [COLOR=Red][B]"[ID]=" & Me![ID][/B][/COLOR]
    DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub

 

[andymac]

That's fantastic, thank you so much!