T
tiredoftrying
For some reason the following code will not work, I get an error on the from
clause - does anyone see anything wroong with it or another way to do the
same thing
Private Sub Command95_Click()
Dim rst As New ADODB.Recordset
Dim SqlStmt As String
SqlStmt = "SELECT * FROM Values WHERE ID = " & TextTEST
rst.Open SqlStmt, CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
While Not rst.EOF
rst!ORDER_STATUS = "OK"
rst.Update
rst.MoveNext
Wend
MsgBox "TABLE UPDATED"
TextTEST = ""
End Sub
clause - does anyone see anything wroong with it or another way to do the
same thing
Private Sub Command95_Click()
Dim rst As New ADODB.Recordset
Dim SqlStmt As String
SqlStmt = "SELECT * FROM Values WHERE ID = " & TextTEST
rst.Open SqlStmt, CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
While Not rst.EOF
rst!ORDER_STATUS = "OK"
rst.Update
rst.MoveNext
Wend
MsgBox "TABLE UPDATED"
TextTEST = ""
End Sub