Discussion :

[mawelle]

Bonjour,
je dispose de 3 zones de liste déroulante sur un formulaire. La première regroupe tous les départements d'une région. La 2ème correspond à l'ensemble des communes d'un département sélectionné dans la 1ère liste. Et la dernière rassemble l'ensemble des Zones industrielles de la commune sélectionné dans la 2ème liste.
J'ai crée une procédure VBA traduite par un évenement AfterUpdate() qui marche très bien entre la liste départements et la liste communes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ld_dept_AfterUpdate()
Dim lngDept   As Long
Dim SQL        As String
 
  If Not IsNumeric(Me!ld_dept) Then Exit Sub
  lngDept = Me!ld_dept
  SQL = "SELECT INSEE, COMMUNE, NO_DEPT FROM COMMUNES WHERE NO_DEPT =" & lngDept & " ORDER BY COMMUNE"
  ld_commune.RowSource = SQL
  ld_commune.Enabled = True
  ld_commune.SetFocus
  ld_commune.Dropdown
 
End Sub

Seulement pour ma liste des noms des ZI, je dois passer par la table ZI et non pas la table SITUER (voir modèle joint). Et je n'arrive pas à voir quelle formule SQL fonctionnerait.
Voyez vous comment il faudrait faire?
Merci d'avance.

[LedZeppII]

Bonjour,

Il faut utiliser les tables SITUER et ZI.
En supposant que la colonne liée de ld_commune est la colonne INSEE, que INSEE est un champ numérique, et enfin que la liste des ZI s'appelle ld_ZI :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ld_commune_AfterUpdate()
Dim lngINSEE As Long
Dim SQL As String
 
If Not IsNumeric(Me!ld_commune) Then Exit Sub
lngINSEE = Me!ld_commune
SQL = "SELECT ZI.NO_ZI, ZI.NOM_ZI " & _
      "FROM ZI INNER JOIN SITUER ON  ZI.NO_ZI = SITUER.NO_ZI " & _
      "WHERE SITUER.INSEE =" & lngINSEE & " ORDER BY NOM_ZI"
ld_ZI.RowSource = SQL
ld_ZI.Enabled = True
ld_ZI.SetFocus
ld_ZI.Dropdown
 
End Sub

A+

[mawelle]

Merci beaucoup, ça marche parfaitement!!