Discussion :

[Goupo]

Salut à tous,

Attention, question de gros noob : J'arrive pas à lire mon recordset.

J'ai fait quelques recherches sur le web et la solution que j'ai tenté est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim requete As String
    requete = "select max(reference) as nouvelleReference from Echange where agence = '" & listAgence & "'"
 
    CurrentDb.QueryDefs.Delete ("Test")
    CurrentDb.CreateQueryDef "Test", requete
 
    Set rs = CurrentDb.OpenRecordset(requete, dbOpenForwardOnly, dbReadOnly)
    rs.MoveNext
    nouvelleReference = rs!nouvelleReference
    MsgBox nouvelleReference + 1

A l'exécution, j'ai une msgbox qui me dit : Aucun enregistrement en cours...

Quand j'exécute manuellement la requête que j'ai généré, aucun problème, c'est bien la valeur attendue qui est retournée.

Quelqu'un peut me dire où je me suis gourré dans le code?

Quand j'enlève le "max" de ma requête, je n'ai plus d'erreur. Est-ce que c'est du à cet agrégat?! Ou put-être à mon alias?!

Merci d'avance!

[Goupo]

Mouarf, j'ai trouvé... Faut virer le rs.MoveNext.

Le Recordset est automatiquement amorcé!