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

DRISS -  
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
Configuration: Windows XP
Internet Explorer 6.0

7 réponses

  1. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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.
    1
  2. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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»
    1
  3. DRISS
     
    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
    0
    1. zata29000 Messages postés 10 Statut Membre 1
       
      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.....!!!!!!.
      -1
  4. DRISS
     
    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
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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.
    -1
  7. zata29000 Messages postés 10 Statut Membre 1
     
    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.....!!!!!!.
    -1
  8. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour zata29000,
    Si c'est à moi que vous vous adressez, ma réponse est Non.
    -1
    1. zata29000 Messages postés 10 Statut Membre 1
       
      Bonsoir:
      c'est à DRISS que je m'adresse,excuse.
      -1