[MS Access] Liste déroulantes de requêtes
DRISS
-
zata29000 Messages postés 10 Statut Membre -
zata29000 Messages postés 10 Statut Membre -
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
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
A voir également:
- [MS Access] Liste déroulantes de requêtes
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Liste de diffusion whatsapp - Guide
- Site dangereux liste - Guide
7 réponses
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.
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.
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»
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»
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
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
Bonsoir:
Voilà,j'ai adresser hier soir un message par erreur au pseudo "le pingou"
Moi MANSOUR de la BEA Mascara,j'èspère que tu est "DRISS de la R.T.I Oran"
tu peux me dire comment déverouiller une feuille EXCELL.
J'ai poser ma question depuis 3 jours,et personne ne ma rendu la réponse.
benaissa ma dit dit que tu viendra le jeudi chez nous,si tu a la réponse j'aimerai bien que tu m'expliquera une fois sur place.
Bien à toi,quel bonheur.....!!!!!!.
Voilà,j'ai adresser hier soir un message par erreur au pseudo "le pingou"
Moi MANSOUR de la BEA Mascara,j'èspère que tu est "DRISS de la R.T.I Oran"
tu peux me dire comment déverouiller une feuille EXCELL.
J'ai poser ma question depuis 3 jours,et personne ne ma rendu la réponse.
benaissa ma dit dit que tu viendra le jeudi chez nous,si tu a la réponse j'aimerai bien que tu m'expliquera une fois sur place.
Bien à toi,quel bonheur.....!!!!!!.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
