1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
'listbox1 est celle qui charge les pays
'listbox2 est celle qui chargera les villes
'je suppose que ta table ville contient l'id des pays
'créé 2 textbox (textbox1 & 2) et place les sur la feuille , mets leurs propriétés visible à False
'Faire une requete (MaRequete) qui va regrouper les id et les noms des pays et des villes
Private Sub listbox1_Click()
Dim Monsql, Monsql2 as string
Me!textbox1=listbox1.Column(0) 'Recuperation du pays qui a été cliqué (choisi par l'utilisateur)
'Recuperation de l'id du pays qui a été choisi
Monsql = "Select id_pays FROM MaRequete WHERE nom_pays = '" & Me!textbox1 & "'"
textbox2= Monsql
'Chargement des villes en fonction du pays choisi
Monsql2 = "Select nom_ville FROM MaRequete WHERE id_pays = '" & Me!textbox2 & "'"
Me!listbox2.Rowsource = Monsql2
End Sub |
Partager