[MS Access] Liste déroulantes de requêtes

Question

Bonjour mes camarades,
je reformule ma question autrement ;j'ai une BDD access avec beaucoup de requetes , actuellement je place beaucoup de boutons sur mon formulaire pour executer mes requetes , mon formulaire est devenu ainsi plein de boutons .

au lieu d'utiliser ces boutons n'existe t-il pas une autre solution , par exemple utiliser une liste déroulante de requetes:
je m'explique; une liste modifiable qui contient la liste exhaustive de toutes les requetes , que je peux executer en cliquant dessus.

peu importe la solution, par code VBA ou par assistant access directement .

mes remerciemets 
driss

Le Pingou · Answer

Bonjour,
Je suis sur votre problème, merci de me communniquer la version d'access (important pour le code VBA) ?
Ma proposition suivra dès que le contrôle de fonctionnement est OK.

Le Pingou · Answer

Bonjour DRISS,
Suite:
Créer une table pour la liste des requêtes : T_mesreqlst
Renseigner la liste par une procédure événementielle sur ouverture du formulaire de commande : F_choixlstderoulante
Private Sub Form_Open(Cancel As Integer)
.............
End Sub

Activer votre choix par une procédure événementielle Après MAJ sur le contrôle zone de liste déroulante :
Private Sub lstdermod_AfterUpdate()
..............
End Sub

Voir l’exemple ci joint : https://www.cjoint.com/?ksu72eIjHi

Lancer le formulaire «F_choixlstderoulante»

DRISS · Answer

merci Monsieur j pierre pour votre aide 
j'ai récupéré la BDD que vous m'avez envoyé
mais il y a le  message d'erreur suivant qui est lancé dés ouveture du formulaire en question :
Projet ou Bibliothèque introuvable !!!
je vous prie si vous voulez m'aider de consulter ma question que j'ai reformulé autrement , pour cela je vous demande
de faire une recherche nom utilisateur :DRISS ===LISTE DEROULANTE DE REQUETE.

il s'agit de créer une table des requetesselon leurs noms
inserer comme vous avez dit une liste déroulante basée sur la table (liste des requetes)
inserer le code suivant dans la liste déroulante :

Private Sub Modifiable6_Change()
On Error GoTo Err_Commande8_Click
   Dim stDocName As String
    stDocName = "REQ1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    On Error Resume Next
Exit_Commande8_Click:
    Exit Sub
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
end sub

le probleme c'est que cette methode n'exucute qu'une seule requete .
Comment faire SVP pour executer toutes les requetes: REQ1 REQ2 REQ3   etc...............

JE vous demande Monsieur J PIERRE d'etre un peu patient avec moi car je ne suis pas 
trés fort en programmation.
j'attend votre réponse avec impatience
mes salutations

driss

DRISS · Answer

Bonjour Monsieur JEAN PIERRE !
je me suis attardé hier soir sur la BDD que vous m'avez envoyé et dont je vous remercie encore une fois ,
l'erreur a été du à la consultation d'outil =régfrences=j'ai mis une croix sur une compsante qui manque.
une autre erreur est apparue cette fois elle concerne :Dim qrs As Querydefs (type défini par l'utlsateur non défini)
pour pallier cette erreur j'ai reconsulté : références=et j'ai coché microsoft DAO 3.6 Object Library.
et ca marche.
Je te rappelle Monsieur JP que je travaille avec office 2003 / WINDOWS XP PROFESSIONNEL.
mes remerciements encore une fois et bon dimanche.
RESOLU

DRISS de CASABLANCA

Le Pingou · Answer

Bonjour DRISS,
J'ai lu vos 2 courriels, est-ce que mon exemple vous convient  ?
Si non, merci de me le dire afin de corriger le tir.

zata29000 · Answer

Bonsoir
Moi MANSOUR de la BEA Mascara,j'èspère que tu est "DRISS de la R.T.I Oran"
tu peut me dire comment déverouiller une feuille EXCELL.
J'ai poser ma question depuis 2 jours,et personne ne ma rendu la réponse.
Bien à toi,quelle bonheur.....!!!!!!.

Le Pingou · Answer

Bonjour zata29000,
Si c'est à moi que vous vous adressez, ma réponse est Non.

[MS Access] Liste déroulantes de requêtes

7 réponses

Discussions similaires

Newsletters