Problème avec le booléen EOF d'un objet Recordset Résolu

Question

Bonjour à tous,

J'ai un problème pour boucler sur le résultat d'une requête faite en vba access.

Voici mon code :
  Dim Db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rec As DAO.Recordset
Set Db = CurrentDb


MonSQL = "select siret_aia from pivot_rejet_1 where siret_aia like '9*';"

Set qdf = Db.CreateQueryDef("", MonSQL)
Set rec = qdf.OpenRecordset(dbOpenSnapshot)

While rec.EOF
  MsgBox "trouvé " & rec![Siret_AIA]
  rec.MoveNext
Wend

Lorsque je fait la requête en sql sur la table je trouve 232 lignes. Mais lorsque j'execute la requête à partir d'un bouton sur formulaire, le booléen est toujour à faux.

quelqu'un peut-il me dépanner ?
Merci d'aévance

jimomo

Renfield · Accepted Answer

EOF => End Of File

EOF est vrai quand on arrive à la fin...

transforme donc ta boucle :

Do Until rec.EOF
  MsgBox "trouvé " & rec![Siret_AIA]
  rec.MoveNext
Loop

Renfield · Answer

En passant, gaffe a la sectionou tu postes...

Thèmes / VB.NET et VB 2005 /

cs_Exploreur · Answer

Salut,

Je rajouterais, qu'il vaudrait mieux laisser de côté DAO qui n'est plus actualisé par Microsoft, et utiliser ADO qui est le plus courant....

Salut Renfield >> en passant, et la Dll ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

Renfield · Answer

ben, tu sais, j'ai n projets en court, j'avance l'un, puis l'autre, selon l'urgence.
j'avance encore sur la dll (codé dessus hier) je te bipperais, no soucy

Problème avec le booléen EOF d'un objet Recordset

4 réponses

Votre réponse

Discussions similaires