[AC-2000] Affectation du resultat de DoCmd.OpenQuery [Résolu]

[Tydher]

Bonjour à tous,

Dans mon module VBA, je fait appel à une requete réalisé avec l'assistant d'Access.

Je souhaite parcourir le Recordset suite à l'appel de la requete :

Code :

1
2
SelectionGenerale = DoCmd.OpenQuery "SelectionGen", , acReadOnly
Set SelectionGene = CurrentDb.OpenRecordset(SelectionGenerale)

Cependant, j'ai une erreur de compilation
Fonction ou variable attendu

En supprimant SelectionGenerale = je n'est plus l'erreur :

Code :

1
2
DoCmd.OpenQuery "SelectionGen", , acReadOnly
Set SelectionGene = CurrentDb.OpenRecordset(SelectionGenerale)

Cependant comment puis-je parcourir le recordset?

Je n'est pas vu dans la FAQ le moyen de le faire !

Merci d'avance !

[tarnx]

Pour la première méthode, l'erreur vient du fait que l'instruction DoCmd.OpenQuery ne retourne pas de résultat.

Avec la deuxième méthode, la variable SelectionGenerale est vide.

Pour parcourir les enregistrements de ta requête tu peux faire comme ça :

Code :

1
2
3
4
5
6
7
With CurrendDb
    Set SelectionGene = .OpenRecordset(.QueryDefs("SelectionGen").SQL)
end With
While Not SelectionGene.EOF 
    Instructions
Wend

[Tydher]

Merci de ta réponse !

J'ai l'erreur :
Objet requis sur la ligne 2

Code :

1
2
3
With CurrendDb
    Set SelectionGene = .OpenRecordset(.QueryDefs("SelectionGen").SQL)
end With

[Tydher]

J'ai trouvé d'où viens l'erreur.

Mauvaise déclaration de variable j'avais

Code :

Dim SelectionGene As Recordset

au lieu de

Code :

Dim SelectionGene As DAO.Recordset

Maintenant ton code est fonctionnel
J'ai aussi vu que :

Code :

Set SelectionGene = CurrentDb.OpenRecordset("SelectionGen")

fonctionne.

Merci beaucoup !