Bonjour,
je cherche à récupérer la valeur d'une requête dans une Msgbox mais je n'y arrive pas. J'ai fouiné sur la toile pour comprendre comment cela fonctionne mais rien ne semble marcher. Je dois faire une erreur quelque part mais je ne sais pas où. Si une âme charitable pouvait me renseigner ce serait super. Voici le code:
J'ai vu au debogueur que la valeur récupérée dans Articles.SeuilReapro_article se trouve dans le champ Value du champ Item 1 de stock mais impossible de le récupérer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Option Compare Database Private Sub Commande1_Click() 'déclarations des variables Dim Didact As DAO.Database Dim Temp_Mouvement As Variant Dim requete As String Dim toto As String Dim stock As DAO.Recordset Set Didact = CurrentDb 'Set Temp_Mouvement = Didact.OpenRecordset("Mouvement", dbOpenDynaset) 'requete = "SELECT Sum(Mouvement.Quantite) AS Stock_entree FROM Emplacement INNER JOIN (Articles INNER JOIN Mouvement ON Articles.Ref_article = Mouvement.Ref_Article) ON Emplacement.Ref_Emplacement = Mouvement.Ref_Emplacement WHERE (((Articles.Ref_Article)=[saisir article :]) AND ((Emplacement.Ref_Emplacement)=[saisir emplacement : ]));" requete = "SELECT Articles.SeuilReapro_article as stock2 FROM Articles where Articles.Ref_article = 'Prod-008';" Set stock = Didact.OpenRecordset(requete, dbOpenDynaset) MsgBox ("Stock : " + Str(stock.Fields("item 1").Value)) End Sub
Partager