Afficher le valeur d'une table dans un champ
hrzo
Messages postés
4
Statut
Membre
-
Jean_Jacques -
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 !
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
-
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
-
