Load Recent Content
What concerns me right now with the hype over ChatGPT is that the focus is on the AI alone and not on the human interaction which is required.
Dim db As DAO.Database
Dim strSql As String
Dim prm As DAO.Parameter
Set db = CurrentDb
strSql = "SELECT StatusFour FROM [tblOrder] WHERE [OrderID] =" & [Forms]![frmOrder]![CboGrnstocopy]
With db.CreateQueryDef("", strSql)
For Each prm In .Parameters
prm.value = Eval(prm.Name)
Next
With .OpenRecordset(dbOpenSnapshot, dbSeeChanges)
If Not .EOF() Then
Me.txtOrdersAuditing = .Fields(0).value
End If
End With
End With
Set prm = Nothing
Set db = Nothing
The Original Tech Community