Private Sub Command3_Click ()
Dim s1 As String
S1="confirm?"
If MsgBox (s1, vbOKCancel)=vbOK Then
The Set r=CurrentDb. QueryDefs (" query6 ")
R.s ql="UPDATE ATM SET STAT=" 0 "the WHERE (ATMNO=(" & amp; Me. Pleaseenter & amp; "))
"R.E xecute
MsgBox "ok!"
End the If
End Sub

CodePudding user response:

"The UPDATE ATM SET STAT=" 0 "the WHERE (ATMNO=(" & amp; Me. Pleaseenter & amp; "))
"
This "0", not obvious mistakes?