Discussion :

[mawelle]

Bonjour,

j'ai une table COMMUNES (INSEE;COMMUNE) et un formulaire dans lequel je dispose de plusieurs communes dans une zone de liste.
Je voudrais qu'en cliquant sur l'une, son code insee apparaissent dans une zone de texte. Je n'arrive qu'à obtenir pour le moment que le nom de la commune.
Merci pour votre aide.

[Jean-Philippe André]

Bonjour,
si tu es certain de ne pas avoir de doublons dans tes noms de communes, tu peux utiliser la fonction DLookup()
exemple :

Code :

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

Me.TonChampTexte = DLookup("INSEE","COMMUNES","COMMUNE='" & Me.TonChampCommune & "')

[mawelle]

J'ai testé la fonction DLookup() mais je reçois un message d'erreur de syntaxe. Mes communes sont dans une zone de liste (zl_commune) et la commune sélectionée par un clique dans cette liste doit apparaitre dans une zone de texte (insee) par son code insee.
Voici ce que j'ai mis:

Code :

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

1
2
3
Private Sub zl_commune_DblClick(Cancel As Integer)
Me.insee = DLookup("INSEE","COMMUNES","COMMUNE='" & Me.zl_commune & "')
End Sub

[Invité]

Bonjour

Il te manque une double-quote aprés la dernière quote.

Starec

[mawelle]

Je n'ai plus de message, mais lorsque je double-clique sur la commune, rien ne se passe!
Vous voyez d'où cela peut venir?

[Jean-Philippe André]

Pour t'assurer des valeurs que tu testes, mets des Debug.Print un peu partout
exemple :

Code :

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

1
2
3
4
5
Private Sub zl_commune_DblClick(Cancel As Integer)
Debug.Print Me.zl_commune 
Debug.Print DLookup("INSEE","COMMUNES","COMMUNE='" & Me.zl_commune & "'")
Me.insee = DLookup("INSEE","COMMUNES","COMMUNE='" & Me.zl_commune & "'")
End Sub

[mawelle]

Merci beaucoup pour votre aide, mais je ne comprends, cela ne marche toujours pas, rien ne se passe quand je clique.
Pourtant la table est bien COMMUNES avec les champs INSEE et COMMUNE...

[Invité]

Bonjour

Cela peut arriver dans certains cas, essayes en récréant la procédure.

• Copie la partie du code entre l'entête et la fin de la procédure
• Supprimer la procédure sur le double-clique
• Enregistre
• Recrée la procédure évenementielle à partir de de l'onglet Evènement de la fenêtre propriété de ta zone de liste.
• Colle le code copier
• Tests

Starec

[mawelle]

J'applique à la lettre ta méthode, mais toujours rien...
J'ai beau tout vérifier, je ne vois pas, ça doit venir du code mais là je vois pas...
Une dernière idée??

[Jean-Philippe André]

peux-tu nous dire ce qui apparait dans la fenêter d'exécution avec le code stp ?

[mawelle]

Rien n'apparait lorsque je clique.

Mon code:

Code :

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

1
2
3
4
5
Private Sub zl_commune_DblClick(Cancel As Integer)
    Debug.Print Me.zl_commune
    Debug.Print DLookup("INSEE", "COMMUNES", "COMMUNE='" & Me.zl_commune & "'")
    Me.insee = DLookup("INSEE", "COMMUNES", "COMMUNE='" & Me.zl_commune & "'")
End Sub

Merci à vous

[Invité]

Bonjour

Le résultat du Debug.Print apparait dans la fenêtre éxécution de l'éditeur VB, tu l'ouvres en faisant Ctrl + G, en général elle apparait en bas sous la fênêtre de saisie du code.

Starec

[mawelle]

Ah merci! je ne connaissais pas!
Il n'y a rien qui s'affiche dans cette fenêtre...

[Jean-Philippe André]

d'accord,
pour t'assurer que ton code est bien lu, peux-tu mettre un point d'arrêt (F9) sur la première ligne.
si ce n'est pas le cas, il faudra vérifier le nom du control auquel tu as accoller le code.

[mawelle]

Je reçois la valeur Null pour Me.insee!

[Invité]

Re

Dans la fenêtre exécution tape

Code :

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

? DLookup("INSEE", "COMMUNES", "COMMUNE='lenomcommune')

En remplaçant commune par le nom d'une commune et valide (Enter).

Starec

[mawelle]

? DLookup("INSEE", "COMMUNES", "COMMUNE ='Antony'")
92002

[mawelle]

qu'est ce que cela signifit?
car mon contrôle se nomme bien zl_commune...

[Jean-Philippe André]

et si tu mets

Code :

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

Me.Insee.Value = Dlookup...

?

[mawelle]

j'avais essayé déjà mais pas plus de résultat...