Discussion :

[symbabeauchat]

Bonjour tout le monde

Je pense avoir un problème pour récupérer le résultat de ma Requête :
C'est une requête de Regroupement et je veux récupérer la Somme du champ
[NbrJoursAbsCG]

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
25
 
Private Sub Btn_ChargeLesChamps_Click()
 
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
 
'ma Requête Enregistrée
Set qdf = CurrentDb.QueryDefs("R_SomAbsMoisRegulParam")
 
'Passage des Params à la Requête
qdf.Parameters("Ks_Resident") = frm![K_RESIDENT]           
qdf.Parameters("MoisFinAbsence") = frm![zdtMoisDeSaisie]     
qdf.Parameters("AnneeFinAbsence") = frm![zdtAnneeDeSaisie]   
 
qdf.Execute             
 
Set rst = qdf.OpenRecordset
 
************* problème ici *****************************
Me.NbrJoursRegul = rst("SommeDeNbrJoursAbsCG")
 
rst.Close
Set qdf = Nothing
 
End sub

J'ai remarqué que ACCESS rajoute SommeDe devant mon champ,alors pour mon affectation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.NbrJoursRegul = rst("SommeDeNbrJoursAbsCG")

j'ai rajouté SommeDeNbrJoursAbsCG

J'ai le Message : erreur 3265 élément non trouvé dans cette collection

Merci pour le coup de pouce
Bonne journée à tous

[loufab]

Bonjour,

Je ne sais pas si la syntaxe est correcte (pas testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst("...")

Les suivantes le sont

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst!....

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.fields("...")

Par contre si tu as un problème de nom tu peux passer par le n° d'index du CHAMP.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.fields(0)

Cordialement,

[symbabeauchat]

Merci loufab pour ta réponse

En fait je viens de comprendre:
1) la syntaxe était bonne ,c'était une erreur de ma part dans la définition de mes paramètres

2) ma requête est une Requête Sélection --> donc pas de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qdf.Execute

Merci encore
Bonne journée