[AC-2003] Code postal en fonction de la ville

[Eric26]

Bonjour,

C'est sûrement une question qui a du être posée des x-aines de fois, mais je n'arrive pas à trouver la bonne discussion sur ce sujet, je vous pose mon problème en espérant trouver une aide.

J'ai un formulaire crée à partir d'une table T_societe, dans lequel on rentre les coordonnées des sociétés clients (jusque là, pas de souci).

Pour le CP (CP_societe) et la ville (Ville_societe), j'ai voulu automatiser leur saisie en mettant un code qui fait qu'à partir de la ville, je retrouve le code postal correspondant.

J'ai trouvé un code sur ce forum, mais le souci, c'est que les données ne sont pas sauvegardée dans la table. Cela doit provenir du code c'est sûr mais je ne vois pas d'où (petite précision, il y a la table T_societe et aussi une table T_ville avec la liste de tous les codes postaux et villes de France) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Database
 
Private Sub Ville_societe_AfterUpdate()
 Me.CP_societe.SetFocus
    Me.CP_societe.Requery
    If Me.CP_societe.ListCount > 1 Then
        Me.CP_societe.Dropdown 'Pour la voir se dérouler
    Else
        Me.CP_societe = Me.Ville_societe.Column(2)
   End If
End Sub
 
Private Sub CP_societe_Enter()
  Me.CP_societe.Dropdown
End Sub
 
Private Sub CP_societe_BeforeUpdate(Cancel As Integer)
 Me.Ville_societe = Me.Ville_societe.Column(2)
End Sub
 
Private Sub Ville_societe_Enter()
 Me.Ville_societe.Dropdown
End Sub

Pouvez-vous m'aider SVP

Merci

[dumas.blr]

Bonjour Eric26,

Peux-tu me dire de quels types sont tes controles Ville_societe et CP_societe, et comment ils sont alimentés (si ce sont des listbox ou des combobox) ?

[Eric26]

Salut,

ce sont tous les deux des listes de zone déroulantes qui sont alimentés par une saisie manuelle.

lorsque l'on se place sur ces contrôles et que l'on commence à saisir les premiers caractères, ils affichent la liste correspondante.

merci à toi pour ton aide