Discussion :

[Lionel69260]

Bonjour,
J'ai conçu une base de données Accès 2007 pour gérer des contrats de maintenance.
Pour l'adresse des clients, j'ai un champ CodePostal, un champ Ville et un champ Département.
Le CodePostal est saisi au clavier.
Les champs Ville et Département sont des listes déroulantes.
Les données de ces listes déroulantes proviennent d'une table que j'ai nommé insee
Mon souci est le suivant : Lorsque je saisi le CodePostal, le rafraichissement de la liste des villes et du département correspondants ne se fait pas pas automatiquement.
Les champs restent vides et je ne vois les correspondances qu'en cliquant sur la flèche des listes déroulantes.
Par exemple : Je saisi 69250 qui correspond à plusieurs villes de ma table insee.
J'aimerai qu'au lieu d'être obligé de cliquer sur la flèche de la liste déroulante pour voir les villes correspondantes, cette liste s'ouvre automatiquement ou bien que la ville correspondante au CodePostal s'affiche automatiquement dans le cas d'un code postal avec une seule ville (ex. 75001 Paris1er).
Merci pour vos réponses car j'ai cherché longtemps mais ne trouve pas de solution.

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

D'abord, il faut que la source de ta liste déroulante ville soit liée par une requête sur ta table Insee, et dans la clause Where de cette requête le code postal, ce qui te permet d'avoir toutes les villes de ce code.

Ensuite, sur l'évènement AfterUpdate de ta zone de texte, tu fais un SetFocus et un DropDown sur ta zone de liste déroulante.

Voilà une première approche.

Philippe

[Lionel69260]

Bonsoir Philippe et merci pour ta réponse.

Cela fonctionne bien sauf que si je change plusieurs fois le code postal, les listes ne sont pas rafraichies.

J'ai trouvé une solution :

Code :

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

1
2
3
4
5
Private Sub CodePostal_AfterUpdate()
 
    Me.Refresh      ' Cela rafraichi les données du formulaires
                         ' lorsque je change le code postal      
End Sub

Code :

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

1
2
3
4
5
Private Sub Ville_GotFocus()
 
    Me!Ville.Dropdown     ' Cela ouvre la liste des villes avec le 
                                 ' avec le nouveau code postal
End Sub

Code :

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

1
2
3
4
Private Sub Département_GotFocus()
 
    Me!Département.Dropdown   'Idem pour le département
End Sub

A bientôt et merci encore

[pier.antoine]

Bonsoir

En utilisant

Code :

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

me.requery

peut-être?

Pierre