Discussion :

[bodd984]

Bonjour à tous,

Je débute dans access et dans l'écriture de code VBA.

Je ne comprend pas pourquoi lorsque j'écris ça (cmdClose nom d'un boutton et forms1 nom du formulaire) :

Code :

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

1
2
3
Private Sub cmdClose_Click()
  DoCmd.Close acForm, "forms1"
End Sub

Pourquoi ne veut-il pas fermer le formulaire ?

Même question mais pour ouvrir un état :

Code :

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

1
2
3
4
5
Private Sub print_Click()
Dim Nom_Etat As String
Nom_Etat = "etat1"
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

Pourquoi ne veut-il pas ouvrir l'état1 ?

Merci

[Jean-Philippe André]

Bonjour,
bienvenue sur DVP

peux-tu nous en dire un peu plus sur le "ne veux pas ouvrir" stp ?

Souhaites-tu fermer le formulaire en cours ?

Essaie avec

Code :

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

DoCmd.Close acForm, Me.Name, acSaveYes

[bodd984]

Alors dans les deux cas quand je click sur le bouton rien ne se passe rien, c'est comme s'il ne trouvait pas de code associée au bouton.

Pour le bouton fermer, je veux effectivement fermer le formulaire en cours et pour ouvrir l'état print(déja créé) il ne se passe rien quand je click sur le bouton.

J'ai essayé ce que tu m'as proposé mais cela ne change rien, j'ai l'impression qu'il ne comprend pas les commendes DoCmd.Close ou DoCmd.OpenReport

[Jean-Philippe André]

ok,
en mettant un point d'arrêt dans le code (F9) est-ce que tu peux nous dire si le code est bien lu ?

[bodd984]

Non il n'arrive pas a lire le code, Il n'associe pas les codes aux boutons!!

[Jean-Philippe André]

ok,
assure-toi qu'access le relie bien en passant par l'interface de création
Control>Evenement>sur clic> génération code

[bodd984]

Super, c'est bon ça marche. Merci bcp!!
Je pensais qu'il allait chercher le code automatiquement quand il etait ecrit.

J'ai une derniere petite question, voila dans mon formulaire j'ai un graphique dynamique que j'ai pu réaliser grâce à votre super tuto mais mon probleme est de savoir comment je pourrai imprimer ce graphique dans un état (a un instant T)

J'ai essayé de faire comme ce qui suit mais je me suis un peu embrouillé :

J'ai créé un premiere variable public :

Code :

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

Public Source_MonEtat As String

ensuite j'ai stocké le code source de mon graphique de mon formulaire dans cette variable (je pense que je me suis trompé ici, je veux juste sauvegarder le code sql de mon graphique) :

Code :

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

1
2
3
4
5
6
Private Sub print_Click()
Dim Nom_Etat As String
Nom_Etat = "graphetat"
Source_MonEtat = Me.RecordSource
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

et enfin j'ai essayé de recharger cette variable à l'ouverture de mon etat (qui contient que un graphique)(je veux juste remettre mon code sql dans le contenu du graphique) :

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Source_MonEtat
End Sub

Et au final mon etat s'ouvre avec le cadre du graphique mais sans rien dedant puisqu'il ne trouve pas le contenu.

[bodd984]

Je pense mettre amélioré en changeant dans le formulaire:

Code :

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

1
2
3
4
5
6
Private Sub print_Click()
Dim Nom_Etat As String
Nom_Etat = "graphetat"
Source_MonEtat = graph.RowSource
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

et dans l'etat :

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
graphetat.RowSource = Source_MonEtat
End Sub

J'obtient un message d'erreur pour RowSource, comment pourrai-je faire????