Discussion :

[michel.r06]

Bonjour, mon problème est le suivant, en vb je lance une requête qui me donne une valeur et je souhaite récupérer cette valeur pour un traitement.
j'ai trouvé de l'aide sur le net mais je bloque.... comprends pas tout
Mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim oDb As DAO.Database
Dim oQDF As DAO.QueryDef
Dim oRS As DAO.Recordset
Dim resultat As String, Chaine as string
Set oDb = CurrentDb
 
Chaine = "SELECT Count(Archive) AS Comptedenregistrement " & _
"From Archive " & _
"WHERE (((Year([Archive]![date]))>=1998 And (Year([Archive]![date]))<=2014) " & _
"AND ((Archive.Typ)=1));"

la je bloque apres je fais quoi pour affecter le "Comptedenregistrement" de ma requête dans "resultat"
Est-ce que tous des "Dim" sont utile

Merci

[deedolith]

Ma reponse ne va pas etre très pedagogique, cas de force majeur vu que tu n'as pas l'air d'etre familier avec la programmation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    '// Ouvre un objet recordset avec la requete
Set oRS = oDb.OpenRecordset(Chaine)
        '// verifie que le recordset n'est pas vide
If not(oRS.BOF and oRS.EOF) then
                '// Affecte la valeur du champ Comptedenregistrement
        resultat = oRs.Fields("Comptedenregistrement").Value
Else
        '// Aucune donnée retournée
        '// Faire quelque chose ???
End If
        '// Nettoyage des objets
oRS.close
Set oRS = Nothing

[michel.r06]

Ok super merci, je crois que maintenant j'ai compris