Discussion :

[Yanmeunier]

Bonjour,
Je fais un petit programme en VBA dans le quel j'ai besoin d'accéder aux données d'une requête Access.
Je ne sais pas comment faire?
Merci

[kissmytoe]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim requeteBD as DAO.queryDef
Dim resultat as DAO.resultset
 
Set requeteBD = CurrentDb.QueryDefs("nom de ta requete dans Access")
'Si il y a des parametres
requeteBD.parameters("nom du parametre") = (Ce que tu veux)
 
Set resultat = requeteBD.openResultset
 
'Tant que la requete contient des lignes
While (Not resultat.EOF) 
  msgBox resultat("nomChamp")
  resultat.moveNext
Wend

[Yanmeunier]

Meric bien j'ai pas encore essayé mais je vais le faire.

[Yanmeunier]

Il ne connait pas DAO.queryDef. J'essaye d'ajouter les composant DAO mais cela ne fonctionne pas quels sont les composants à ajouter.
Merci

[kissmytoe]

OUtils - Références

Coche Microsoft DAO object Library

[Yanmeunier]

Pour le DAO.queryDef me génère plus d'erreur mais le DAO.resultset m'en fait une.
Quel est le composant?
Merci

[random]

remplace
Dim resultat as DAO.resultset

par
Dim resultat as DAO.recordset

[Yanmeunier]

Merci