1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub NC_NotInList(NewData As String, Response As Integer)
' Si le client n'est pas dans la liste alors proposer de l'ajouter dans la liste.
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des clients ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO T_clients ( Nom ) SELECT """ & NewData & """;"
DoCmd.SetWarnings True
Response = acDataErrAdded
DoCmd.OpenForm "F_Clients", , , "[Nom]='" & NewData & "'"
Else
Response = acDataErrContinue
NC.Undo
End If
End Sub |
Partager