Discussion :

[domibigoudi]

Bonjour,

Je travaille avec Access 2010 sous WinSeven.

j'ai placé dans une combobox la liste des codes postaux et villes issus d'une table.

Lors de la sélection du CP, il copie la ville dans une textbox. Jusque là ca va. Le problème est que pour deux CP identiques et villes différentes, si je sélectionne le second CP, il me donne toujours la première ville.

Exemple, pour 1000 Bruxelles et 1000 Brussel, quel que soit le choix, il donne toujours le premier de la liste cad Bruxelles.

Auriez-vous une solution au problème ou est-ce un problème de version?

Merci et bonne journée.

[minot83]

Bonjour,
il te faut une clé unique, par exemple un champ Numéroauto, puis le code et le nom de la ville. (c'est le plus simple pour éviter les doublons)
Cordialement

[VincentNguon]

Sinon utilises le code INSEE qui est unique pour chaque ville/commune (par contre je ne sais pas s'il y a ça en Belgique).

[FreeAccess]

Bonjour à tous....

Ton problème vient uniquement de la valeur par défaut de ta ZdL ....

Explication:

Une table [T_CP] CP | Commune

Un formulaire avec une Zdl [lstCP] et une zone de texte [txtCommune]

Propriété "Contenu" de la Zdl:

Code :

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

SELECT [T_CP].[CP], [T_CP].[Commune] FROM T_CP ORDER BY [CP];

Colonne liée 2 (ici, c'est la valeur de la colonne 2 qui est prise par défaut...)

Evènement "Après MAJ" de la ZdL:

Code :

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

1
2
3
4
Private Sub lstCP_AfterUpdate()
'[txtCommune] prends la valeur de la colonne 2 de l'élément sélectionné
Me.txtCommune.Value = Me.lstCP.Column(1)
End Sub

....c'est aussi simple . . . ou alors donne nous plus de détail

[EDIT]
Il est a noter, qu'à partir du moment ou la propriété "Colonne liée" pointe sur la bonne colonne, le code suivant est également valable...

Code :

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

1
2
3
4
Private Sub lstCP_AfterUpdate()
'[txtCommune] prends la valeur retournée par la ZdL
Me.txtCommune.Value = Me.lstCP.Value
End Sub

[domibigoudi]

Bonjour à tous,

Merci de vos réponses.

J'ai résolu mon problème. Il suffisait d'utiliser l'évènement AfterUpdate au lieu de Change.

Bonne journée.