Afficher le valeur d'une table dans un champ [Fermé]

Signaler
Messages postés
4
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
20 mai 2011
-
 Jean_Jacques -
Bonjour,

J'ai une ltable client avec comme champs : ID, Nom, CodeClient, Adresse ...

J'ai mis une zone de liste avec seulement ID(caché), CodeClient et Nom.

Je souhaite savoir l'adresse du client dans une zone de texte par un double clique.


J'ai essayé de faire quelques trucs, mais ... dans ma zone de texte il m'indique
SELECT NomClient FROM tblClient WHERE IDClient =1

Voilà mon codage :

Private Sub lst_Client_DblClick(Cancel As Integer)

Dim strSQL As String

strSQL = " SELECT NomClient FROM tblClient WHERE IDClient =" & Me![lst_Client].Column(0)

Me![txt_CodeClient] = strSQL


End Sub

Merci d'avance !

2 réponses

Messages postés
1045
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
5 mars 2014
108
Bonjour hrzo,

Après l'avoir adapté, cet évènement sur clic affichera l'enregistrement ayant la même référence que celle connue dans le formulaire actif.


Private Sub Màj_Click()

On Error GoTo Err_Màj_Click
Dim DocName As String
Dim LinkCriteriA As String
DocName = "Transactions"
LinkCriteriA = "[RéfTransaction]=" & Me![RéfTransaction]
DoCmd.OpenForm DocName, , , LinkCriteriA
Exit Sub

Err_Màj_Click:
MsgBox Error$
Exit Sub
End Sub

___
Cordialement
***
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert
Bonjour,

Merci d'avoir repondu!

Euh je ne comprends pas du tout ce que vous faites...

Pourquoi ouvrir un formulaire a la fin ?

quel est le but du "On Error GoTo Err_Màj_Click " ?

Merci.

Bonjour hrzo,
"On Error GoTo Err_Màj_Click " est une ligne de code générée automatiquement à partir d'une macro convertie par l'assistant...
Je n'y ai jamais vraiment prêté attention. En cas d'erreur de code, je suppose qu'elle permet de sortir d'une éventuelle boucle intempestive....

Cordialement
***
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert