Discussion :

[jamila12]

Bonjour,

j'ai une interface contient deux Liste Déroulante (secteur et segment) et un bouton Recherche

je veux que si l'utilisateur choisir une valeur dans la liste déroulante Secteur et clique sur le bouton recherche ça va exécuter la requête1 (la requête contient dans ces conditions les deux combobox) , et si l'utilisateur choisir une valeur dans la liste déroulante Segment ça va exécuter la requête2.

comment faire ça ??



Heeeeelp plzz

[titi95]

Bonjour

As-tu pensé à utiliser directement les événement 'Sur clic' (quand choix dans la liste) de chacune des deux listes, sans bouton ?

Titi95

[jamila12]

Bonjour

As-tu pensé à utiliser directement les événement 'Sur clic' (quand choix dans la liste) de chacune des deux listes, sans bouton ?

Titi95

non avec le bouton bien sur

[titi95]

Sauf cas particulier, il est préférable d'utiliser le clic sur la liste (un seul clic, pas de bouton).
Fais l'essai.

[jamila12]

Sauf cas particulier, il est préférable d'utiliser le clic sur la liste (un seul clic, pas de bouton).
Fais l'essai.

je suis obligée de faire un bouton de recherche , donc j'ai pas le choix

[titi95]

Dans le cas où tu ne pourrais absolument pas te passer d'un bouton pour lancer les requêtes, tu peux utiliser ce code à mettre en début de procédure 'Sur clic' du bouton (à aménager)
On teste sur le nom du contrôle qui est actif.

Code :

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

1
2
3
4
5
6
7
8
9
10
    Select Case ActiveControl.Name
        Case "NomListe1"
            'exécution requête1
            '...
        Case "NomListe2"
            'exécution requête2
            '...
        Case Else
            'traitement d'erreur si focus mis ailleurs entre choix liste et clic bouton
    End Select

Titi95

[jamila12]

le bouton c'est juste pour ouvrir le formulaire qui contient les résultats, dans la source de ce formulaire je mets le nom de la requête ..
donc dans ce cas est-ce que je peux mettre ce code dans la source de formulaire ?

[titi95]

Si je comprends bien, le clic sur le bouton va ouvrir LE formulaire (unique, le même dans les 2 cas) mais en se basant sur une requête ou sur l'autre, suivant quelle liste a été utilisée.
Dans ce cas, tu ouvres le formulaire en indiquant la requête (code à mettre dans 'Sur clic du bouton):

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case ActiveControl.Name
        Case "NomListe1"
            DoCmd.OpenForm "NomFormulaire",,"requête1"
            '...
        Case "NomListe2"
            DoCmd.OpenForm "NomFormulaire",,"requête2"
            '...
        Case Else
            'traitement d'erreur si focus mis ailleurs entre choix liste et clic bouton
    End Select

Titi95

[jamila12]

j'ai fais ça mais ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande6_Click()
  Select Case ActiveControl.Name
    Case "num"
        DoCmd.OpenForm "Formulaire3"
    Case "ref"
        DoCmd.OpenForm "Formulaire2"
    Case Else
        'traitement
   End Select
End Sub

[titi95]

mais ne marche pas

Il faut regarder ce qui se passe.
Après avoir mis un point d'arrêt ou un Stop dans le code, tu peux faire du pas-à-pas (touche F8)...
Tu peux aussi mettre des Msgbox...

Exemple en première ligne de ton code sur le bouton pour vérifier ce que renvoie ActiveControl.Name

Code :

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

MsgBox ActiveControl.Name

Attention au passage du focus sur un autre contrôle du formulaire entre choix dans une liste et clic sur bouton !
Il faut traiter avec le Case Else.

Je me permets donc d'insister à nouveau : si le bouton est systématiquement utilisé après choix (clic) dans une liste, et s'il ne sert qu'à ouvrir un formulaire ou l'autre, il faut le supprimer.
Dans ce cas, tu mets les ouvertures de formulaire directement dans le 'Sur clic' de chaque liste. Et plus aucun pb de focus perdu.

D'ailleurs je suis étonné, d'après ton dernier code, que tu es 2 formulaires différents. Alors bouton avec Select case inutile.

(évite de reprendre tous les posts entiers en citation ; cela surcharge pour rien)

Titi95

[jamila12]

Merci pour vos réponse ,
voilà le code correct :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public lastCBclicked As String
 
Private Sub Recherche_Click()
  Select Case lastCBclicked
    Case "Liste1"
        DoCmd.OpenForm "Formulaire1"
    Case "Liste2"
        DoCmd.OpenForm "Formulaire2"
    Case Else
        'traitement
   End Select
End Sub
 
Private Sub Liste1_Click()
    lastCBclicked = ActiveControl.Name
End Sub
 
Private Sub Liste2_Click()
    lastCBclicked = ActiveControl.Name
End Sub

[titi95]

Super !

Je vois que tu as corrigé mon erreur grossière.

Pendant mon absence de cet AM (sans ordinateur...) j'ai repensé à mon code qui ne fonctionnait. Effectivement, après le clic sur le bouton, le contrôle actif était... le bouton !!! et jamais les listes.
Il fallait donc garder la trace de la liste ouverte.

Vraiment, désolé. Mais j'étais dans ma solution sans bouton. Alors...

Bon courage et à bientôt !

N'oublie pas de cliquer sur RESOLU.

Titi95