Modifier le contenu d’une liste déroulante en fonction d’une autre 

wpe2.gif (1107 octets)exemple.mdb

Procédé :

  • Créer la table TblContinent contenant les champs suivants : Continent (Texte 50) et Code (Texte 1). Ensuite, y encoder les valeurs suivantes :
CONTINENT CODE
EUROPE 1
ASIE 2
AMERIQUE DU SUD 3
AMERIQUE DU NORD 4
Pays CodeContinent
Belgique 1
France 1
Pays-Bas 1
Luxembourg 1
Allemagne 1
Chine 2
Corée 2
Thailande 2
Philippines 2
Brésil 3
Argentine 3
Bolivie 3
Panama 3
U.S.A. 4
Canada 4

 

 

  • Créer un formulaire, le sauvegarder sous le nom FrmTest et y placer deux listes déroulantes :

CboContinent :

Name : CboContinent
Row Source Type : Table/Query
Row Source : TblContinent
Column Count : 2
Column Width : 3;0
Bound Column : 2

CboPays :

Name : CboPays
Row Source Type : Table/Query
Row Source : SELECT TblPays.Pays FROM TblPays WHERE (((TblPays.CodeContinent)=[Forms]![frmtest]![cbocontinent]));
Column Count : 1
Column Width : 5
Bound Column : 1

  • Taper le code suivant sur l’événement After update de la liste déroulante cboContinent :

Me!CboPays.Requery