Liee une liste deroulante avec zone de texte
doti
-
doti -
doti -
Bonjour,
j ai une base de donnee ' Table_Fournisseur ' avec les champs suivantes :
1-NOM_FOURNISSEUR. (texte)
2-NUMERO_COMPTE . (numero)
3-BANQUE. (texte)
4-ADRESSE_BANQUE. (texte)
j ai creer un formulaire ' Formul_VRT_Fournisseur ' sur access :
* NOM_FOURNISSEUR comme Liste deroulante ' Liste_Nom_Fournisseur'
* et les autres champs comme zone de texte nomé comme suit :
- ZT_NUMERO_COMPTE
- ZT_BANQUE
- ZT_ADRESSE_BANQUE
Ce que je veux c'est de relier la liste deroulante au autres champs, dés que je choiser sur clik le nom fournisseur , les autres champs s'affiche automatiquement.
Ca fait un bon temps que je cherche sur inetrnet et je trouve pas la solution
Merci.
j ai une base de donnee ' Table_Fournisseur ' avec les champs suivantes :
1-NOM_FOURNISSEUR. (texte)
2-NUMERO_COMPTE . (numero)
3-BANQUE. (texte)
4-ADRESSE_BANQUE. (texte)
j ai creer un formulaire ' Formul_VRT_Fournisseur ' sur access :
* NOM_FOURNISSEUR comme Liste deroulante ' Liste_Nom_Fournisseur'
* et les autres champs comme zone de texte nomé comme suit :
- ZT_NUMERO_COMPTE
- ZT_BANQUE
- ZT_ADRESSE_BANQUE
Ce que je veux c'est de relier la liste deroulante au autres champs, dés que je choiser sur clik le nom fournisseur , les autres champs s'affiche automatiquement.
Ca fait un bon temps que je cherche sur inetrnet et je trouve pas la solution
Merci.
A voir également:
- Liee une liste deroulante avec zone de texte
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Alternative zone telechargement - Accueil - Outils
- Liste déroulante google sheet - Accueil - Guide bureautique
- Liste code ascii - Guide
1 réponse
Bonsoir doti,
Voici le code de l'évènement [Après mis à jour] à créer derrière le champ qui accueille la liste ...
Bien entendu il convient d'adapter ceci à votre contexte.
NB: Les valeurs notées <XYZ> sont à remplacer par les noms que vous utilisez dans votre base.
Private Sub <liste>_AfterUpdate()
With CodeContextObject
DoCmd.GoToControl "[<Champ>]"
DoCmd.FindRecord <Liste>, , True, , True
If <champ> <> <Liste> Then
MsgBox "Cet enregistrement est inconnu : " & Me!Liste
Me!<Liste> = ""
End If
End With
End Sub
Cordialement
Voici le code de l'évènement [Après mis à jour] à créer derrière le champ qui accueille la liste ...
Bien entendu il convient d'adapter ceci à votre contexte.
NB: Les valeurs notées <XYZ> sont à remplacer par les noms que vous utilisez dans votre base.
Private Sub <liste>_AfterUpdate()
With CodeContextObject
DoCmd.GoToControl "[<Champ>]"
DoCmd.FindRecord <Liste>, , True, , True
If <champ> <> <Liste> Then
MsgBox "Cet enregistrement est inconnu : " & Me!Liste
Me!<Liste> = ""
End If
End With
End Sub
Cordialement
Sans passer par VBA, on peut également placer dans la requête de sélection de la liste déroulante (Données => contenu) toutes les colonnes qui nous intéressent, les masquer (Format => Nb de colonnes = Nb total de tes colonnes puis largeur des colonnes 2;0;0;0;0;0...) seule la première colonne sera visible.
Ensuite dans la zone de texte on inscrit "=[FORMS]![NomFormulaire]![NomListe].Column(1)" pour afficher la valeur de la colonne 2 (masquée dans la zone de liste déroulante) "=[FORMS]![NomFormulaire]![NomListe].Column(2)" pour afficher la valeur de la colonne 3 dans une seconde zone de texte par exemple.
Cordialement
Ship