Basic VBA to open report based on field

[miacino]

I thought this would be a very basic VBA code. I'm trying to open a report, using a command button, based on a mutual field in the report and on the open form [positionID].
While it does open the report, it is not limiting the report to that specific [positionID].

---------------------
Private Sub Command553_Click()

If Me.PositionStatus.Value = "Per Diem" Then
DoCmd.OpenReport "Offer Packet_Cover PerDiem", acViewPreview, , [PositionID] = Me.[PositionID]
End If

End Sub
-----------------------------

:banghead:

 

[theDBguy]

Hi. The Where Condition argument of the OpenReport method expects a String value. Try enclosing it with quotes. For example:

DoCmd.OpenReport "Offer Packet_Cover PerDiem", acViewPreview, , "[PositionID] = " & Me.[PositionID]

 

[miacino]

Yes, that's it! Thank you!
(I should have known that! ....I just got over 3 days in bed with the flu. I'm blaming my lapse on that!)

 

[theDBguy]

Hi. No worries. We all make mistakes. Cheers!