Discussion :

[ostrich95]

Bonjour à tous,

J'ai créé une requête croisée dynamique affichant des volumes par semaine de façon à pouvoir analyser par groupe de clients.

Via un formulaire, j'ouvre la requête en mode Graphique croisé dynamique avec un bouton:

Code :

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

1
2
3
4
Private Sub Commande203_Click()
        stDocName = "GRAPHIQUE" 'on recupere le nom de la requete graphique
        DoCmd.OpenQuery stDocName, acViewPivotChart, acEdit 'on l'ouvre en mode graphique croisé dynamique
End Sub

Voilà mon graphique:



Je peux utiliser le champ en haut à gauche pour modifier l'affichage mais quand je veux sortir du graphique, il y a toujours le message:

"Enregistrer les modifications apportées à la mise en forme de Requête GRAPHIQUE?"

Est-il possible de bloquer ce message et donc de toujours fermer sans enregistrer la requête graphique?

Le problème est que ce graphique n'est pas inséré dans un formulaire, je ne vois donc pas comment agir dessus via le VBA.

Quelqu'un a une idée?

Merci d'avance,

Ostrich95

[madefemere]

Bonjour,

Je propose d'annuler les messages d'erreurs avant l'ouverture de la requête et de les remettre à la fermeture du formulaire appelant avec :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande203_Click()
        Docmd.SetWarnings False
        stDocName = "GRAPHIQUE" 'on recupere le nom de la requete graphique
        DoCmd.OpenQuery stDocName, acViewPivotChart, acEdit 'on l'ouvre en mode graphique croisé dynamique
End Sub
 
Private Sub Form_Close()
DoCmd.SetWarnings True
End Sub

Cordialement,

[ostrich95]

Bonjour madefemere,

La solution fonctionne bien pour empêcher le message de s'afficher.

Le problème est qu'à la fermeture du graphique, les modifs sont automatiquement sauvegardées alors que je voudrais l'inverse (i.e. ne jamais les sauvegarder)

Y a-t-il un moyen de faire ça?

Merci d'avance,

Ostrich95