Discussion :

[Meadow]

Bonjour,

Je cherche à afficher dans une liste déroulante la liste de mes requêtes dans le but suivant :
Lorsque que je sélectionne une requête via la liste, elle s'exécute et le résultat s'affiche et s'actualise si une nouvelle requête est sélectionnée.

Pour le moment j'en suis qu'au stade où il faut afficher les noms des requêtes dans la liste déroulante.
J'ai lu plusieurs forums en quête de solution. Voici le code de mes différentes tentatives :

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 lstRequetes_AfterUpdate()
 Dim strRequete As String
 
 strRequete = Me!lstRequetes
 On Error Resume Next
 DoCmd.SelectObject acQuery, strRequete
 If Err <> 0 Then
 DoCmd.OpenQuery strRequete, acViewNormal
 Else
 MsgBox "Impossible de trouver la requête nommée " & strRequete & " !"
End If
 End Sub

et

Code :

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

1
2
3
4
5
 
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Not Like "Msys*" And (MsysObjects.Name) Not Like "~*") AND ((MsysObjects.Type)=5))
ORDER BY MsysObjects.Name;

Merci d'avance pour votre aide et vos solutions.

[marot_r]

Bonjour.

Et ta question est ?

De l'aide pour voir la liste des requêtes ?
De l'aide pour faire afficher une requête ?
Autre chose ?

A+

[Meadow]

Merci à vous de vous être pencher sur mon topic,
Ma question est donc pourquoi après avoir essayé les deux paragraphes de codes que j'ai envoyé dans mon 1er message, ma liste déroulante ne déroule rien du tout.
J'imagine que c'est parce que mon code est incorrect.

[marot_r]

Bonjour.

ma liste déroulante ne déroule rien du tout.

Les listes déroulantes de Access ne se déroulent pas d'elle même.
Elles n'affichent des propostions que quand tu tapes dedans et il n'y pas besoin de code pour cela.
Si tu veux que ta liste s'ouvre automatiquement il faut utiliser un code qui ressemble à :

Code :

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

1
2
3
Private Sub TaListe_GotFocus() 
   Me.TaListe.Dropdown 
End Sub

Dans L'événement sur réception du focus.

Aussi les listes sont "alimentées" en valeur via leur propriété "Contenu", si tu y définis du SQL comme celui que tu as posté, Access va remplir la liste avec les données.

Si tu utilises l'assistant de création, il te guide pas à pas dans la parmétrisation.

Attention, les listes déroulantes sont mise à jour au moment du chargement du formulaire et ne se mettent pas à jour automatiquement même si les données changent.

Si tu as besoin de cela, il faut mettre le code suivant :

Code :

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

Me.TaListe.Requery

Dans l'événement Sur réception du focus.

En espérant avoir répondu à ta question.

A+

[elgordopresto]

Bonjour à toi,

Voici une proposition pour récupérer la liste des requêtes de ta BDD :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim str as string, qd As QueryDef
 
' tout d'abord, je stocke la liste de toutes les requêtes dans une variable de type texte
For Each qd In CurrentDb.QueryDefs
if str = "" then 
str = qd.Name
else
str = str & "; " & qd.name
End If
Next
 
' Ensuite, j'affecte la valeur ainsi obtenue à mon menu déroulant
Me.Cbo_ListeDesRequetes.RowSource = strSQL

Tu peux exécuter ce code au chargement de ton formulaire par exemple...

Il faut que le menu déroulant dans ton formulaire ait la valeur Value List dans la propriété Row Source Type.

Bien à toi

[Meadow]

Merci beaucoup pour vos réponses, la solution de elgordopresto fonctionne à merveille.
J'ai bien ma liste de toutes mes requêtes qui s'affichent dans ma liste déroulante.

A+