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