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 !
A voir également:
- Afficher le valeur d'une table dans un champ
- Table ascii - Guide
- Table des matières word - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. ✓ - Forum Excel
- Dans le diaporama à télécharger, les diapositives s’enchaînent automatiquement. combien de temps la diapositive crayon met-elle à s’afficher ? combien de temps reste-t-elle affichée à l’écran ? ✓ - Forum Powerpoint
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - 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
