Afficher le valeur d'une table dans un champ
hrzo
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
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 !
A voir également:
- Afficher le valeur d'une table dans un champ
- Table ascii - Guide
- Table des matières word - Guide
- Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
- Mise en forme conditionnelle "compris entre" ✓ - Forum Excel
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
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.
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
"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