Passing Parameter to Report

[greatwhite]

Hi There again



Below is my Stored Query and below that is my Sub to call it and pass a value.

I am trying the Where Clause and cannot seem to get the report to accept the value. The query just returns everything

SELECT tblECs.EC_ID, tblECs.EC_Num, tblECs.EC_Title, tblECs.EC_Rev, tlkpEventType.EventType, tlkpEventStatus.Status, tblShips.ShipName, Count(tblAffectedTDP.EC_ID) AS Num_Affected, tblShips.Ship_ID
FROM tblECs INNER JOIN tblAffectedTDP ON tblECs.EC_ID = tblAffectedTDP.EC_ID, tlkpEventStatus INNER JOIN (tlkpEventType INNER JOIN ((tblShips INNER JOIN tblEventList ON tblShips.Ship_ID = tblEventList.Ship_ID) INNER JOIN tblEC_Event ON tblEventList.EVENT_ID = tblEC_Event.Event_ID) ON tlkpEventType.EventType_ID = tblEventList.EventType_ID) ON tlkpEventStatus.EventStatus_ID = tblEventList.EventStatus_ID
GROUP BY tblECs.EC_ID, tblECs.EC_Num, tblECs.EC_Title, tblECs.EC_Rev, tlkpEventType.EventType, tlkpEventStatus.Status, tblShips.ShipName, tblShips.Ship_ID;



************************************************** *******************************************


Private Sub cmdRptEventImpactTDP_Click()



On Error GoTo cmdqryRptEventImpactTDP_Click_Error





DoCmd.OpenReport "qryRptEventEC", acViewReport, , "ShipID = " & txtHoldOptionValue, acNormal

On Error GoTo 0
Exit Sub


cmdqryRptEventImpactTDP_Click_Error:


MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdqryRptEventImpactTDP_Click of VBA Document Form_frmMain"


End Sub

[GinaWhipp]

Hmm, is the option value the Ship ID?

[greatwhite]

Woops misspelling of option should have Ship_ID

Hmm, is the option value the Ship ID?

[GinaWhipp]

Well, that was an easy fix!