Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.AccessConnection Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cn .Source = "SELECT * FROM jobs WHERE [SwiftTitle] = '" & Me.[cmbSwiftSelect1] & "'" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open Me.ReqPickupTime = rst.Fields("ReqPickupTime") End With Set rs = Nothing Set cn = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access How To Append and Prepend a String To Each line In a Table Field Value||5||48|
|Want my table columns to autofit.||7||63|
|Access Data Retrieval||1||18|
|MS Access How To Code In VBA Current Computers Name Instead of Hardcoding it||5||23|
Join the community of 500,000 technology professionals and ask your questions.