Comment Recuperer la valeur d'un requete dans une variable

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:

---

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

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:

---

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

---

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