[Access] Zone de liste dans une requete ?

DJELiTe -  
Old Messages postés 1 Statut Membre -
Voilà en fait j'aimerais faire une requete dans laquelle il y a 5 critères...Hum...

Il faudrait en fait que je sache faire un requete avec donc 5 zone de liste déroulante.

Zone de liste 1 : Langue (FLangage)
Zone de liste 2 : Sales Rep. (FSalesRep)
Zone de liste 3 : Business. (FBusiness)
Zone de liste 4 : Function.(FFunctionENG)
Zone de liste 5 : Speciality.(FSpeciality)

Les données des listes déroulantes sont dans des tables distinctes.

Tout d'abord, est-il possible de faire une requete avec 5 zones de liste déroulante???
Et puis si oui comment faire ? :pt1cable:
Dois-je faire ca avec l'éditeur de requêtes SQL ? Ou en code VB sur un formulaire attaché a la requête ?

J'ai matter sur le forum mais j'ai rien vu concernant ce type de problème.. Si il y avait déjà une réponse indiquez moi le lien :)

Merci d'avance...

DJELiTe

3 réponses

  1. DJELiTe
     
    Je rectifie... En fait j'ai un formulaire avec les différentes liste de choix et il faudrait qu'a travers le bouton "Ok" cela affiche le formulaire customer déjà créer mais avec les différents critères sélectionnés.
    0
  2. DJELiTe
     
    Vous pensez qu'avec des trucs du style :
    If Combobox1.Value = ENG then
    Show Frmblablabla.Flangue = Eng

    Ca pourrait marcher?
    J'pense qu'il faudrait pas mal de IF avec toutes les valeurs lol...

    Enfin bon je n'sais pas je n'ai que les ases en VB et encore...
    0
  3. Old Messages postés 1 Statut Membre
     
    Hello,

    je pense que tu peux suivre différentes méthodes :

    par ex :
    Evenement "Sur click" du bouton "OK"
    passer les résultats de tes 5 listes via des variables globales

    que tu appelleras dans ta requete SQL ou VB

    déclaration de variables dans module par exemple pour Langue
    avec création de 2 méthodes : set et get

    Private Langue As String

    "Pour prendre donnée
    Public Sub SetLangue(lang As String)
    If IsNull(lang) Or lang = "" Then
    Exit Sub
    Else
    Langue = lang
    End If
    End Sub

    "pour rendre donnée
    Public Function GetLangue() As String
    GetLangue = Langue
    End Function

    dans le "OnClick" du bouton ok
    Langue.SetLangue (ComboLangue)

    Pour récupérer dans ta requete :
    GetLangue
    te ramène la langue saisie dans la combo de l'autre page
    0