OVH Cloud OVH Cloud

Liaisons entre les champs d'un formulaire (Access)

2 réponses
Avatar
Marc CNS
Bonsoir,
Je voudrais que certains champs du formulaire (n°code,Prix,Code TVA,...)se
remplissent automatiquement lorsque je sélectionne un nom de produit dans une
liste déroulante. Quelqu'un peut-il m'aider?
Merci... et certainement à bientôt!
--
Marc CNS

2 réponses

Avatar
amira
"Marc CNS" a écrit dans le message de
news:
Bonsoir,
Je voudrais que certains champs du formulaire (n°code,Prix,Code TVA,...)se
remplissent automatiquement lorsque je sélectionne un nom de produit dans
une
liste déroulante. Quelqu'un peut-il m'aider?
Merci... et certainement à bientôt!
--
Marc CNS


source de la liste déroulante SELECT DISTINCTROW [Produits].[CodeProduit],
[Produits].[Nom] FROM Produits ORDER BY [Produits].[Nom];
nom du contrôle : ChoixProduit

1ère méthode : avec VBA

Après mise à jour >> procédure évènementielle

Private Sub ChoixProduit_AfterUpdate()
Me.RecordsetClone.FindFirst "CodeProduit='" & Me.ChoixProduit & "'" '(si
le code produit est alpha numérique)
Me.RecordsetClone.FindFirst "CodeProduit = " & Me.ChoixProduit
'(si le code produit est numérique)
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

2ème méthode avec macro

Après mise à jour >> Macro M_ChoixProduit
Actions:
AtteindreContrôle >>> CodeProduit
TrouverEnregisrtement >>> =[ChoixProduit]

voili
a+

Avatar
Marc CNS
Merci pour la réponse mais elle est un peu compliquée pour le débutant que je
suis!
N'existe-t-il aucun moyen d'y arriver en utilisant un des assistant?

A+
--
Marc CNS




"Marc CNS" a écrit dans le message de
news:
Bonsoir,
Je voudrais que certains champs du formulaire (n°code,Prix,Code TVA,...)se
remplissent automatiquement lorsque je sélectionne un nom de produit dans
une
liste déroulante. Quelqu'un peut-il m'aider?
Merci... et certainement à bientôt!
--
Marc CNS


source de la liste déroulante SELECT DISTINCTROW [Produits].[CodeProduit],
[Produits].[Nom] FROM Produits ORDER BY [Produits].[Nom];
nom du contrôle : ChoixProduit

1ère méthode : avec VBA

Après mise à jour >> procédure évènementielle

Private Sub ChoixProduit_AfterUpdate()
Me.RecordsetClone.FindFirst "CodeProduit='" & Me.ChoixProduit & "'" '(si
le code produit est alpha numérique)
Me.RecordsetClone.FindFirst "CodeProduit = " & Me.ChoixProduit
'(si le code produit est numérique)
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

2ème méthode avec macro

Après mise à jour >> Macro M_ChoixProduit
Actions:
AtteindreContrôle >>> CodeProduit
TrouverEnregisrtement >>> =[ChoixProduit]

voili
a+