Discussion :

[pageplant]

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...

[Demco]

Voici l'article de la FAQ qui traite le sujet :

http://access.developpez.com/faq/?page=SQL#Warning

En espérant t'aider.

[stigma]

Un petit exemple pour t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("DELETE * FROM Stocks")
    DoCmd.SetWarnings True

Pour ma part, je teste si tous les contrôles sont bien renseignés avant de valider.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If IsNull(DateEncours) = True Then
        Cancel = True
        DateEncours.SetFocus
        Exit Sub
    End If

Tu peux ajouter un MsgBox pour expliquer à l'utilisateur.

[pageplant]

J'ai opté pour la réponse de DEMCO plus simple car elle s'applique à toute la base.
A STIGMA, je ne teste pas si les contrôles sont renseignés car dans ce cas précis, les utilisateurs quittent le formulaire volontairement sans aller au bout, je souhaite donc seulement effacer leurs saisies. En revanche, je teste bien pour la validation de la saisie.
MERCI à tous les 2 pour vos conseils