Deux combo liées

Bonjour tous le monde;

J'ai deux tables Pays et Département.
la table Pays a code_pays et design_pays
La table Département a code_dept, design_dept et code_pays

J'aimerai mettre deux combo

La Première relative aux pays et la seconde aux départements.

J'aimerai dés que je sélectionne un Pays, les départements associés s'affichent.
Je n'ai pas su comment faire.
Merci

Voilà ce que j'ai fait:

J'ai crée une requête REQ_Dept

Code:

---

1 2 3

select design_dept from dept, pays where pays.code_pays = dept.code_pays and pays.code_pays={pCombo}

---

Ensuite sur le code de la Combo Pays dans la partie initialisation j'ai mis ce code:

Code:

---

1 2 3 4 5 6 7

REQ_Dept.pCombo=MySelf..DisplayedValue HExécuteRequête(REQ_Dept, ma_connexion) HLitPremier(REQ_Dept) TANTQUE PAS HEnDehors() ListeAjoute(REQ_Dept, REQ_Dept.Design_Dept) HLitSuivant(REQ_Dept) FIN

---

Mais ça ne marche pas, je ne sais pas ce qui cloche!!
Merci

Salut Nassim,

Pour faire ça :
Combo 1 : Dans l'init de la premeire combo ta premiere requete
Dans le code de sélection d'une ligne

Merci Laurent pour ta réponse, mais je n'ai pas compris lol

Bon j'ai fait quelques recherches et j'ai mis ça sur mon code:

Code:

---

1 2 3 4 5 6 7 8

Initialisation COMBO_Pays ListreSupprimeTout(Pays) ListeAjoute(Combo_Pays, "<Choose>" + gLien(""))   POUR TOUTE COMBO_Pays ListeAjoute(COMBO_Pays, COMBO_Pays.Design_Pays + gLien(COMBO_Pays.code_pays)) FIN ListeSelectPlus(COMBO_Pays,1)

---

et j'ai mis

Code:

---

1 2 3 4 5 6 7 8 9 10 11

A chaque modification COMBO_Pays ListeSupprimeTout(COMBO_Département) ListeAjoute(COMBO_Département, "Sélectionner"+gLien("")) SI ListeSelect(COMBO_Pays)=1 ALORS RETOUR dept est une chaîne dept=SansEspace(ExtraireChaîne(Combo_Pays[Combo_Pays]..ValeurAffichée,1,"-")) REQ_Dept.pCombo=dept HExécuteRequête(REQ_Dept) POUR TOUTE REQ_Dept ListeAjoute(COMBO_Département,gLien(REQ_Dept.Design_dept)) FIN

---

En exécutant quand je sélectionne un pays, sur les Départements j'ai <Sélectionner> affiché seulement.
Merci pour votre aide.

Déjà dans tes gliens, je te conseille de mettre 0 pour la valeur initial car tu mets le code_pays qui doit être un entier supérieur à 0 j'imagine.

Et voilà le code que j'utiliserai personnellement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

// Vide la Combo ListeSupprimeTout(Combo_Pays) // Ajoute première ligne ListeAjoute(Combo_Pays, "<Choose>" + gLien(0)) // Lit le fichier pays HLitPremier(pays) // Parcours du fichier pays TANTQUE HTrouve(pays) // Ajouter les pays un par un avec en glien le code_pays ListeAjoute(COMBO_Pays, pays.Design_Pays + gLien(pays.code_pays)) // Passes au pays suivant HLitSuivant(pays) FIN // Sélectionne la première ligne ListeSelectPlus(COMBO_Pays,1)

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

// Vide la Combo ListeSupprimeTout(COMBO_Département) // Ajoute première ligne ListeAjoute(COMBO_Département, "Sélectionner"+gLien(0)) // Si un élément sélectionné et code_pays > 0 SI ListeSelect(COMBO_Pays) > 0 _ET_ COMBO_Pays..ValeurMémorisée > 0 ALORS // Recherche le premier département avec ce code_pays HLitRecherchePremier(dept, code_pays, COMBO_Pays..ValeurMémorisée) // Parcours du fichier dept TANTQUE HTrouve(dept) // Ajouter les dept un par un avec en glien le code_dept ListeAjoute(COMBO_Département, dept.design_dept+ gLien(dept.code_dept)) // Passes au pays suivant HLitSuivant(dept) FIN FIN // Sélectionne la première ligne ListeSelectPlus(COMBO_Département,1)

---

Rien à dire sauf un grand merci Picol, ça marche à merveille. Thanks