Discussion :

[survivant]

Je voudrais fermer mon formulaire après supression d'un enregistrement sans qu'il me demande d'enregistrer les modification alors que je suis en mode affichage.
J'ai creer un bouton supression (commande101) puis ajouter la fermeture du formulaire dans le code mais lorsque je le lance il me demande à la fin si je veux sauvegarder les modifications comme en mode création.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande101_Click()
On Error GoTo Err_Commande101_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
DoCmd.Close
Exit_Commande101_Click:
Exit Sub
Err_Commande101_Click:
MsgBox Err.Description
Resume Exit_Commande101_Click
End Sub

[mout1234]

Bonjour,

Je présume que ton message est lié à la modification du formulaire et non de l'enregistrement.

Logiquement, si ton n'est pas modifié il ne t'affiche pas de message.
La première question est donc de savoir si le message se produit aussi lorsque tu as ouvert le formulaire directement (sans passer par le mode Création).

Eventuellement, pour le forcer à enregistrer (mais normalement tu ne devrais pas avoir à faire cela...) tu peux ajouter une option à la méthode Close

Code :

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

DoCmd.Close , , acSaveYes

[survivant]

Pour te répondre oui il demande de modifier le formulaire lorsque je le ferme, ce que je ne voulais pas.

Enfin merci j'ai trouver comment faire.

voici le code :

Code :

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

1
2
3
4
5
6
7
Private Sub Commande101_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close , , acSaveNo
 
End Sub