Bonjour à tous,

Voici mon problème :
J'ai un formulaire qui sert à incrémenter une table. A chaque fois que le formulaire est rempli, cela ajoute un enregistrement dans ma table.
Si les utilisateurs quittent le formulaire sans terminer la saisie, les champs renseignés sont enregistrés dans la table mais l'enregistrement n'est pas complet.
J'ai donc ajouté un bouton "QUITTER" qui permet d'effacer l'enregistrement en cours par ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btnquit_Click()
Dim reponse
reponse = MsgBox("Etes-vous sûr de vouloir quitter? Toutes vos données seront perdues", vbYesNo)
If reponse = vbYes Then
MsgBox "Merci de votre visite " & Environ("UserName")
 
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
DoCmd.Close
End If
End Sub
Le problème est qu'apparaît le message automatique d'ACCESS "vous allez supprimer un enregistrement...", est-il possible de supprimer ce message et que la suppression soit automatique dès lors que la réponse est vbyes?

Merci d'avance pour votre aide précieuse...