--------------------------------------------------------------------------------
Expand|Select|Wrap|Line Numbers
- Private Sub cmdajout_Click()
- Dim t As String, code As String, rep As String
- Dim req As String
- rep = MsgBox("Vous vouler Modifier Un client Telephone", vbYesNo + vbQuestion + vbDefaultButton2, "information")
- If rep = vbNo Then
- MsgBox "Operation Annulée"
- Else
- code = InputBox("Entre le client Code")
- t = InputBox("Entre un Nouvaux numero")
- req = "update Client set Tel='" & t & "' where Cdclt='" & code & "'"
- DoCmd.RunSQL
- MsgBox "mise Ajour terminer Avec Succes"
- End If
- End Sub
A professional will easily see what I'm doing wrong, so please as I said I'm still beginner, thanks