Discussion :

[virtualinfo]

Bonjour, voilà je développe une appli sous MS AC-2010,

Dans mon appli actuellement, j'ai un formulaire client avec (nom, prénom, rue, CP, Localité, etc...). Pour l'encodage pas de soucis, l’enregistrement se fait bien, mon problème est le suivant, je dispose des codes postaux d'une province entière, cette province se trouve dans une région (Wallonne, BXL Capitale, Flamande), chaque code postal correspond à une commune mais peut toute fois être parfois attribué à plusieurs commune, chaque commune possède des rues, places, avenues, etc..., pouvant être trier sur le préfixe de la commune. Mon problème est que je souhaite avoir la possibilité des que je sélectionne la région, il me donne les provinces possibles, ensuite les communes dispo. et selon le code postale sélectionner, il m'affiche les propositions si plusieurs commune affecté au CP, et la rue correspondant étant précédemment encoder dans une table encoder par son préfixe. Afin que je puisse automatiser le remplissage.

J’espère avoir été compréhensible, je dispose des tables (Rue, Provinces, Régions, Communes & CodePostaux dans la même table).

Précédemment j'avais à partir de la table CodePostaux créer une Liste de Choix qui une fois dans le formulaire lors du clic sur le menu déroulant, afficher sur 2 colonnes le CodePostal ainsi que la commune et idem sur Commune mais dans le sens inverse. Ex: CodePostal: 6700 ARLON Localité:ARLON 6700
Donc mainteant je souhaiterai lors du choix CP ex 6700 il m'affiche Arlon etc.. si d'autre commune ayant le même CP une fois la commune choisie, qu'il m'affiche la liste des rues dispo pour cette commune dispo dans une autre table. Une Grand Merci Pour Tout.

[accessisgood]

Sur le principe, il faut travailler au niveau du formulaire
Les chanps de selection doivent etre des "List Box" (donc avec la propriete RowSource), avec un evenement "OnEnter"

Cet evenement declenche une mise a jour de la propriete RowSource qui va filtrer automatiquement

Code :

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 Commune_Enter()
    Me.Commune.RowSource = "SELECT Source.Commune FROM Source WHERE (((Source.CP)=""" & Me.CP & """)) GROUP BY Source.Commune ORDER BY Source.Commune"
End Sub
 
Private Sub CP_Enter()
    Me.CP.RowSource = "SELECT Source.CP FROM Source WHERE (((Source.Province)=""" & Me.Province & """)) GROUP BY Source.CP ORDER BY Source.CP"
End Sub
 
Private Sub Province_Enter()
    Me.Province.RowSource = "SELECT Source.Province FROM Source WHERE (((Source.Region)=""" & Me.Region & """)) GROUP BY Source.Province ORDER BY Source.Province"
End Sub
 
Private Sub Rue_Enter()
    Me.Rue.RowSource = "SELECT Source.Rue FROM Source WHERE (((Source.Commune)=""" & Me.Commune & """)) GROUP BY Source.Rue ORDER BY Source.Rue"
End Sub