PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
Dim rst strSQL = "SELECT ms.MST_SHIP_NUM, o.ORD_NUM, ms.SHIP_DT, ad.NAME, ms.CAR_ID, ms.EST_CUBE, vss.VSL_ID, vss.SEAL_NUM " & _ "FROM CPCMEP.MST_SHIP ms " & _ "LEFT JOIN CPCMEP.ORD_ACT oa ON ms.MST_SHIP_NUM = oa.MST_SHIP_NUM " & _ "LEFT JOIN CPCMEP.ORD o ON oa.ORD_NUM = o.ORD_NUM " & _ "LEFT JOIN CPCMEP.CUS cu ON o.CUS_ID = cu.CUS_ID " & _ "LEFT JOIN CPCMEP.ADDR ad ON cu.MARK_FOR_ADDR_ID = ad.ADDR_ID " & _ "LEFT JOIN CPCMEP.VSL vs ON ms.MST_SHIP_NUM = vs.MST_SHIP_NUM " & _ "LEFT JOIN CPCMEP.VSL_SEAL vss ON ms.MST_SHIP_NUM = vss.MST_SHIP_NUM " & _ "WHERE ((ms.MST_SHIP_NUM) Like " & Forms![frm_Outbound_Load_Integrity]![MASTER_SHIP_NUM] & ");" Set rst = CurrentDb.OpenRecordset(strSQL) 'This is the line that is failing ' If there are records for the MS#... If rst.RecordCount > 0 Then Me.CARRIER = rst!ms.CAR_ID Me.SEAL_NUM = rst!vss.SEAL_NUM Me.CUSTOMER_NAME = rst!ad.Name Me.SCHED_SHIP_TIME = TimeValue(rst!ms.SHIP_DT) Me.SHIPMENT_TOTAL_CUBE = rst!ms.EST_CUBE Exit Sub End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to let a Yes/No switch select a One record from the displayed record set?||10||60|
|Outlook Macro to delete emails not meeting keywords||56||118|
|Unable to reference a control field in a subform||9||23|
|updating subform when combobox is updated||4||18|
Join the community of 500,000 technology professionals and ask your questions.