[AC-2007] Empêcher enregistrement Etat [Résolu]

[GohanSSj2]

Bonjour à tous

J'ai un bouton qui m'ouvre un Etat en mode création, puis des commandes en VBA mettent en forme mon état au niveau du contenu puis l'état s'ouvre en mode aperçu avant impression.a

Tout ceci marche et est transparent pour l'utilisateur.

Le problème c'est qu'un message d'avertissement demande de sauvegarder l’État. Le but est de dire non.

J'ai donc mis DoCmd.SetWarnings False.
Cela marche bien mais cela implique un enregistrement de l'état.

Connaîtriez vous une commande qui permettrait de réponde "NON" à la question de l'enregistrement l'état ?

Merci bien

[GohanSSj2]

Personne n'a de solutions ?!!

[GohanSSj2]

Bon j'ai trouver une solution

Il faut dabord créer un module sous VBA.
Dans ce module on créé une fonction "Bouton_Quitter()"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Boutons_Quitter()
On Error GoTo Boutons_Quitter_Err
 
    DoCmd.Close , "", acSaveNo
 
 
Boutons_Quitter_Exit:
    Exit Function
 
Boutons_Quitter_Err:
    MsgBox Error$
    Resume Boutons_Quitter_Exit
 
End Function

une autre fonction "Bouton_Imprimer()" :

Idem mais avec

Code :

DoCmd.RunCommand acCmdPrint

On créé ensuite une macro (sous access) que l'on nommera "Boutons_MenuContextuel" avec les Paramètres suivants:
Nom de Macro : Imprimer ; Action : ExécuterCode ; Argument : Bouton_Imprimer()
Nom de Macro : Quitter ; Action : ExécuterCode ; Argument : Bouton_Quitter()

On créé enfin une autre macro sous Access que l'on nommera "Ajout_MenuContextuel" avec les paramétres suivant :
Nom de Macro : Menu ; Action : AjouterMenu ; Argument : ;Boutons_MenuContextuel;

Il suffit ensuite d'indiquer la macro "Ajout_MenuContextuel" dans le paramètre "Barre de menu contextuel" dans l'onglet "Autres" de l'Etat et de mettre NON sur les paramètres "Boite de contrôle" et "Bouton fermer" de l'onglet Format.

Voila !

Maintenant quant l'état s'ouvre, vous faites un clic droit et vous avez les boutons Quitter et Imprimer. Le bouton Quitter ferme l'Etat sans enregistrer.

Merci à ClaudeLELOUP pour la fonction