Discussion :

[altor92]

Bonjour
suite à la création de mon formulaire sur lequel j'avais dans un premier temps positionner des boutons pour déclencher des macro dont l'objet était d’exécuter des requête et de présenter les états correspondants (Ouf....), je souhaiterais privilégier une sélection par liste déroulante (plus esthétique).
J'ai réussi à créer cette liste à partir d'une table (je suis débutant) mais à présent je cherche à déclencher via l'index sélectionné.
je crois comprendre que je dois passer par du code VBA en utilisant les propriétés du bouton liste, mais ça ne marche pas.
j'ai fait un PJ recap pour montrer mon souci.
si parfois une âme charitable pouvait me montrer le chemin....?????

Merci d'avance!!!

[EricDgn]

Bonjour,

Il faudrait lancer le code non pas l'événement "sur clic", mais sur l'événement "après mise à jour" (= après que l'on ait choisi un élément de la liste).

Le code associé devrait plutôt ressembler à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Mes_Requêtes_AfterUpdate()
   Debug.Print "Me.Mes_Requêtes = "; Me.Mes_Requêtes
   If Me.Mes_Requêtes = 2 Then
      DoCmd.OpenQuery "R_RDG02"
      DoCmd.OpenForm "E_RDG02"
   Else
      MsgBox "Raté"
   End If
End Sub

Le Debug.Print permet de voir dans la fenêtre d'exécution (ctrl-g) la valeur qui a été renvoyée par le déroulant "Mes_requêtes"

Il faut prendre l'habitude de ne jamais utilisé de lettres accentuées pour nommer les champs ou tout autre objet dans Access.
Eviter également de laisser des espaces dans ces noms, à remplacer par _

Bonne continuation.

[altor92]

Merci Eric, ça avance en effet.
j'ai pu déclencher l'action avec ton code il effectue la requête (parfait) bon il bloque sur l'ouverture de l'état....je regarde et te tiens au courant

[altor92]

ça y est ça marche...
pour info le code c'était

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 Mes_requêtes_Click()
Debug.Print "Me.Mes_Requêtes = "; Me.Mes_requêtes
   If Me.Mes_requêtes = 2 Then
      DoCmd.OpenQuery "R_RDG02"
      DoCmd.Close
      DoCmd.OpenReport "E_RDG02", acViewReport
   ElseIf Me.Mes_requêtes = 3 Then
      DoCmd.OpenQuery "R_RDG03"
      DoCmd.Close
      DoCmd.OpenReport "E_RDG03", acViewReport
   ElseIf Me.Mes_requêtes = 4 Then
      DoCmd.OpenQuery "R_RDG04"
      DoCmd.Close

Merci en tous les cas pour ton aide précieuse

[EricDgn]

Très bien.
Juste que je me demande pourquoi ouvrir une requête pour la refermer immédiatement.
Je crois bien que cela marcherait aussi bien ainsi:

Code :

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

1
2
3
4
5
If Me.Mes_requêtes = 2 Then 
DoCmd.OpenReport "E_RDG02", acViewReport
ElseIf Me.Mes_requêtes = 3 Then
DoCmd.OpenReport "E_RDG03", acViewReport
ElseIf Me.Mes_requêtes = 4 Then

...

ou même

Code :

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

DoCmd.OpenReport "E_RDG" & format(Me.Mes_requêtes,"00"), acViewReport

Bonne continuation.

[altor92]

En fait, je souhaite l'exécuter cette requête avant d'éditer l'état correspondant (l'état se nourrissant du résultat de cette requête)
peut-être que ce n'est pas la bonne instruction?

[tee_grandbois]

Bonjour,
je suppose qu'il s'agit de requêtes Action (Ajout, suppression ou Mise à jour) car sinon cela n'a aucun intérêt. Si cela remplit la source de ton état, tu peux effectivement lancer ta requête juste avant d'ouvrir ton état, mais inutile de faire un Docmd.Close après l'exécution :

Code :

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

1
2
3
4
If Me.Mes_requêtes = 2 Then
    DoCmd.OpenQuery "R_RDG02",acViewNormal, acEdit
    DoCmd.OpenReport "E_RDG02", acViewReport
ElseIf Me.Mes_requêtes ...

Tu peux utiliser Docmd.SetWarnings False pour enlever le message de la requête Action (à mettre au début de procédure et un Docmd.SetWarnings True à la fin) ...

[altor92]

Bonjour,
je suppose qu'il s'agit de requêtes Action (Ajout, suppression ou Mise à jour) car sinon cela n'a aucun intérêt. Si cela remplit la source de ton état, tu peux effectivement lancer ta requête juste avant d'ouvrir ton état, mais inutile de faire un Docmd.Close après l'exécution :

Code :

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

1
2
3
4
If Me.Mes_requêtes = 2 Then
    DoCmd.OpenQuery "R_RDG02",acViewNormal, acEdit
    DoCmd.OpenReport "E_RDG02", acViewReport
ElseIf Me.Mes_requêtes ...

Tu peux utiliser Docmd.SetWarnings False pour enlever le message de la requête Action (à mettre au début de procédure et un Docmd.SetWarnings True à la fin) ...