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 :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?
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
Merci d'avance pour votre aide précieuse...
Partager