Comment avoir différente marque et quantité à partir de la référence sélectionnée dans une liste déroulante ?
Bonjour,
Je débute sur Access depuis peu et j'essaie de concevoir une application dont une partie permettra de gérer les entrées en stock.
Sauf que je galère depuis un moment , et j'ai vraiment besoin de votre aide.
Dans un premier temps j'ai voulu afficher la marque du produit et sa quantité à partir de la référence sélectionnée dans une liste déroulante.
(Je précise que la table entree est reliée aux tables produit et fournisseur formant des relations plusieurs à plusieurs.
Donc les propriétés de la table entree sont: idprod , idfour , qte, date.)
Et pour se faire, j'ai executé le code vba ci-dessous qui marche très bien mais le souci c'est qu'il ne me donne pas le résultat souhaité.
Lorsqu'on sélectionne une référence dans la première ligne par exemple,
la même marque de produit ainsi que sa quantité sont répétés dans les autres lignes.
Alors le truc ici c'est comment faire pour obtenir différente marque et quantité à partir
de la référence sélectionnée dans une liste déroulante pour chaque ligne du formulaire.
Quelqu'un pourrait il m'aidez svp.
Merci d'avance !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Private Sub list_ref_Change()
Dim enrg As Recordset: Dim base As Database
Set base = Application.CurrentDb
Set enrg = base.OpenRecordset("SELECT marque, qteprod FROM produit WHERE idprod=" & list_ref & ";", dbOpenDynaset)
qteapp.Value = 0: qteac.Value = 0
enrg.MoveFirst
marque.Value = enrg.Fields("marque").Value
qteac.Value = enrg.Fields("qteprod").Value
qteapp.SetFocus
enrg.Clone
base.Close
Set enrg = Nothing
Set base = Nothing
End sub |
