Filtering report on OpenArgs - report asks for parameter for OpenArgs

[Historypaul]

I have a button on a form that opens up the current record displayed on the form in a report. Or at least it should. When I click, it always asks me for the parameter value for OpenArgs.

On the form I have:

Private Sub Command145_Click()
DoCmd.OpenReport "Single_Incident_Report", acViewPreview, , , , ID
End Sub

On the report I have:

Private Sub Report_Load()
Me.Filter = "([Incidents].[ID] = [OpenArgs])"
Me.FilterOn = True
End Sub

[RuralGuy]

I'll check but I believe the OpenArgs argument is the 7th parameter, not the 6th.

[RuralGuy]

Nope, I stand corrected, it is the 6th argument. Why not just use the WhereCondition argument? It is the 4th argument.
DoCmd.OpenReport "Single_Incident_Report", acViewPreview, , "[ID] =" & Me.ID
...assumong this is a Numeric value. Otherwise if it is a string then you would need delimiters.
DoCmd.OpenReport "Single_Incident_Report", acViewPreview, , "[ID] ='" & Me.ID & "'"

[Historypaul]

DoCmd.OpenReport "Single_Incident_Report", acViewPreview, , "[ID] =" & Me.ID

I used the code you recommended above. It gave me an error stating that ID could refer to more than one table in my select statement, so I changed it to what's shown below and it ended up working just fine... Thanks. I tried a million different ways for hours before finally being willing to post the question. I really preferred to use the Where property in the OpenReport command, but I had tried it a million ways earlier and it wasn't working.

DoCmd.OpenReport "Single_Incident_Report", acViewPreview, , "[Incidents].[ID] =" & Me.ID

[Historypaul]

Oh and THANK YOU!

[RuralGuy]

You are very welcome. Thanks for posting back with your solution.