A voir également:
- Liee une liste deroulante avec zone de texte
- Liste déroulante excel - Guide
- Zone telechargement - Accueil - Outils
- Liste déroulante en cascade - Guide
- Google sheet liste déroulante - Accueil - Guide bureautique
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
1 réponse
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
14 janv. 2011 Ã 20:08
14 janv. 2011 Ã 20:08
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
17 janv. 2011 Ã 07:51
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
Modifié par doti le 18/01/2011 à 12:46