[Cécile]

bonjour,

je suis en train de modifier une base de données, et je dois créer des listes déroulantes. jusque la ça va !
mais, mes listes déroulantes doivent doivent être liée. en effet, dans la premiere liste des que je sélectionne une commune, dans la seconde je veux voir apparaitre que les rues de cette commune, et pas les rues des autrescommunes...

comment dois-je faire pour effectuer cette opération ???

merci

[francishop]

Bonsoir,

On va imaginer pour notre exemple qu'on veuille avoir les villes d'un pays suivant une liste.... de Pays. Si aucun Pays n'est sélectionné dans cette liste, qu'on affiche toutes les villes:
Table --> TPays
IDPays-->NuméroAuto-->Clef primaire
NomPays-->Texte

Table --> TVille
ID-->NuméroAuto-->Clef primaire
Nom-->Texte
IDPays-->Numérique-->Entier long




Un formulaire-->sF_Villes
Sur lequel est une liste déroulante-->lstVille
Avec pour source :

CODE

SELECT ID, Nom
FROM TVille
WHERE ((TVille.IDPays) Like [Forms]![F_Villes]![lstPays] & "*");

Principales propriétés de cette liste :
Colonne liée-->1
Nbre colonnes-->3
Largeurs colonnes-->0cm;2.544cm;0cm

Un formulaire-->F_Villes
Dans la section détail de ce formulaire on inscrit le formulaire -->sF_Villes (Qui devient son sous-formulaire)

Dans la section En tête de Formulaire de ce même formulaire-->une liste déroulante -->lstPays
Avec pour source :

CODE

SELECT TPays.IDPays, TPays.NomPays FROM TPays;

Principales propriétés de cette liste :
Colonne liée-->1
Nbre colonnes-->2
Largeurs colonnes-->0cm;2.542cm

On va sur Propriétés/Evénement :
Sur changement :

CODE

Private Sub lstPays_Change()
  Me.sF_Villes.Form!lstVille.Requery
End Sub

Et on va faire de même Sur Sortie :

CODE

Private Sub lstPays_Exit(Cancel As Integer)
  Me.sF_Villes.Form!lstVille.Requery
End Sub

Cordialement.