Liaisons entre les champs d'un formulaire (Access)
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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+
"Marc CNS" <MarcCNS@discussions.microsoft.com> a écrit dans le message de
news: 816F2F6A-CA15-447E-A03A-CCAE8038654C@microsoft.com...
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]
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+
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+
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" <MarcCNS@discussions.microsoft.com> a écrit dans le message de
news: 816F2F6A-CA15-447E-A03A-CCAE8038654C@microsoft.com...
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]
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]