Discussion :

[DuDe92]

Bonjour,
Dans un form, j’ai 2 zones de liste déroulantes.
La seconde liste cmb2 se met à jour en fonction du choix fait dans la première cmb1 (contenant 2 choix A ou B)
ç'a fonctionne.
Dans ce même form, j’ai une zone de texte txt1 qui prend une valeur ( A , B ou C )
Je souhairerai que lorsque ma zone de texte prend la valeur A ou B, ma cmb2 se mette à jour en fonction de cette valeur
sinon ( choix C) cmb2 se met à jour en fonction de cmb1.
mon problème est que je ne sais pas comment le formuler dans propriétés/contenu de ma cmb2
j'espère avoir été clair..

[Lou Pitchoun]

Salut,

C'est pas très compliqué : adapte la solution que tu utilises pour les 2 listes

Sur l'évènement "Après MAJ" du champ, tu affectes le SQL à la source de ta liste :

Code SQL :

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

1
2
3
Select MonChamp1, MonChamp2 
From Matable/requete 
Where MonChamp2 = Forms!F_Geographie.MonChamp

[DuDe92]

Merci pour ta réponse,
en fait cela me parait plus compliqué, j'ai un form appelant contenant 3 boutons : choix A, B ou C qui affecte cette valeur au txt1 du form appelé qui lui même contient mes cmb1 et cm2 et une lstresult (multicritères)
les choix A et B affecte la lstresult, le choix C donne l'ensemble de enregistrements.
je suis un peu perdu ...

[Lou Pitchoun]

Bon alors, toujours sur l'évènement "Après MAJ" du champ, tu affectes le SQL à la source de ta liste :

Code :

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

1
2
3
4
5
If Me.NomChamp = ChoixA or Me.NomChamp = ChoixB then
    Me.MaListe2.RecordSource = "SELECT MonChamp1, MonChamp2 FROM Matable/requete WHERE MonChamp2 = Forms!F_Geographie.MonChamp"
    Else
        Me.MaListe2.RecordSource = "SELECT MonChamp1, MonChamp2 FROM Matable/requete WHERE MonChamp2 = Forms!F_Geographie.Maliste1"
End If

[Mahefasoa]

Salut DuDe92,
Je présume que le code SQL de cmb2 devrait être construit d ela manière suivante:

Code SQL :

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

1
2
3
4
 
SELECT ...
FROM ...
WHERE ...;

C'est au niveau de la clause WHERE qu'il faut placer le critère qui se traduit comme suit (à peu près)

Code algo :

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

1
2
 
table.champ = si(zonedetexte="C" alors cmb1 sinon zonedetexte)

Concrètement, posons que le nom de la zone de texte est zt1 alors la clause WHERE de l'instruction SQL devient:

Code SQL :

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

1
2
3
4
SELECT ...
FROM ...
WHERE table.champ = IIf(zt1="C", cmb1, zt1);

Il est peut-être important de mentionner le formulaire d'où provient le contrôle en faisant comme ceci: [Forms]![NomFormulaire]![zt1] par exemple.
Il est nécessaire d'ajouter le code suivant

Code :

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

Me.cmb2.Requery

à un événement clé des contrôle cmb1 et zt1.
Je ne sais pas si cela a la prétention de t'aider mais bon courage et @+

[DuDe92]

j'ai copié le code sur l'évènement, mais ma cmblist ne s'actualise pas...

voici le code exact:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub varmarche_AfterUpdate()
If Me.varmarche = "R" Or Me.varmarche = "P" Then
    Me.cmbPresta.RecordSource = "SELECT CodesP.nomP, CodesP.canalP, CodesP.marcheP FROM CodesP WHERE Globale!marche = Me.varmarche;"
    Else
    Me.cmbPresta.RecordSource = "SELECT CodesP.nomP, CodesP.canalP, CodesP.marcheP FROM CodesP WHERE CodesP.canalP=Formulaires!frmRechercheG!cmbcmbMarche ; "
End If
End Sub

[DuDe92]

il y avait une erreur dans le code (copié-coller) mais ç'a ne change rien..

[soltani1]

Bonjour,

essaie de mettre les variables en dehors des guillemets.

A+

[DuDe92]

effectivement le contenu SQL de cmb2 est le suivant:

Code :

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

1
2
 
Select CodesP.nomP, CodesP.marcheP, CodesP.canalP FROM CodesP;

[DuDe92]

Le WE approche à grands pas
je vais tester vos solutions dès lundi...et vous communiquerai les résultats
merci encore et bon week end.

[DuDe92]

Bonjour, et bon début de semaine
J'ai utilisé la solution de Mahefasoa et ç'a fonctionne.
ci dessous le code si ç'a peux servir,

sur le contenu de ma cmb:

Code :

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

1
2
3
4
 
Select CodesP.nomP, CodesP.marcheP
FROM CodesP
WHERE (((CodesP.marcheP)=IIf([Formulaires]![frmRecherche]![txt1]="C",[Formulaires]![frmRecherche]![cmbmarche],[Formulaires]![frmRecherche]![txt1])));

et

Code :

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

1
2
 
Me.macmb.Requery

merci beaucoup.