Private Sub Command3_Click()
Dim s1 As String
s1 = "confirm?"
If MsgBox(s1, vbOKCancel) = vbOK Then
Set r = CurrentDb.QueryDefs("query6")
r.sql = "UPDATE ATM SET STAT= "0" WHERE (ATMNO = (" & Me.pleaseenter & "))"
r.Execute
MsgBox "ok!"
End If
End Sub
uj5u.com熱心網友回復:
"UPDATE ATM SET STAT= "0" WHERE (ATMNO = (" & Me.pleaseenter & "))"這上面的"0",不是明顯的錯誤嗎?
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/10252.html
標籤:Access
