Afficher résultat requete dans msgbox

[Aleph69]

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:

Code :

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

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.

[marot_r]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Compare Database
 
Private Sub Commande1_Click()
 
'déclarations des variables
Dim Didact As DAO.Database:set didact=currentdb
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 : " & stock![stock2] 'Ancienne version plus compacte de stock.fields("stock2") ou de stock.fields(1)
 
stock.close:set stock=nothing 'Ferme le recorset et libère la mémoire allouée
set db=nothing 'Libère la mémoire allouée
 
End Sub

Le "Item 1" que tu vois dans le debuggeur est seulement une matérialisation du champ correspondant. Une astuce qui permet à cet outil de rester générique.

En principe les libérations ne sont pas obligatoires car le compilateur devrait s'en charger. En réalité il est recommandé de libérer explictement les ressources utilisées dés qu'on en a plus besoin. Cela aide la machine à bien gérer sa mémoire ce qui évite des bugs parfois très mystérieux.

A+

[marot_r]

Tu aurais pu aussi utiliser DFirst à la place.

Code :

1
2
3
4
5
6
7
dim result as variant
result=DFirst("[SeuilReapro_article]","Articles","[Articles.Ref_article] = ""Prod-008""")
if not isnull(result) then
     msgbox result
   else
     msgbox "Non trouvé !"
end if

A+

[GAYOT]

Bonsoir
Dans tes recherches as tu lu ce tutoriel?
http://jdgayot.developpez.com/tutori...ultats-labels/