Discussion :

[AidezMoiSvp]

Bonjour,

Mon code ci-après ne fonctionne pas et je ne comprends pas pourquoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
Dim strSynt As String
 
    sSQL = Left(CurrentDb.QueryDefs("RqtForme").SQL, Len(CurrentDb.QueryDefs("RqtForme").SQL) - 3) & " WHERE (((IDBesoin)=3));"
 
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    If Not rst.EOF Then
    rst.MoveFirst
    Debug.Print rst.RecordCount
    rst.Close
    Exit Sub
    End If

J'ai une erreur sur rst.movefirst.
Ma chaine ssql est correcte (je fais un debug.print je récupère la chaine sql puis la colle dans la créateur de requête est le résultat de la requête est bien celui que j'attends. D'ailleurs, ce résultat me donne 3 enregistrements mais quand je passe avec mon code et que je fais un debug.print je ne récupère qu'un seul enregistrement...).

Quelqu'un peut-il m'aider ?

Autre élément étrange : j'utilise ce code pour d'autres besoin et il fonctionne très bien.

Merci

[curt]

Bonjour AidezMoiSvp,

ta requête n'est pas fausse au niveau syntaxe mais :

If Not rst.EOF Then

Si ça n'est pas la fin de l'enregistrement

rst.MoveFirst

Aller au début

je ne vois pas trop à quoi ça sert !!

Curt

[LedZeppII]

Bonjour,

Les méthodes .MoveFirst .MoveLast .MovePrevious ne sont pas prises en charge pour des recordset «En avant seulement» (dbOpenForwardOnly).
Essaie le type «Instantané» (dbOpenSnapshot).

.RecordCount indique le plus souvent le plus grand nombre d'enregistrements parcourus.
Il n'indique le nombre réel d'enregistrements que dans certaines conditions.
(Voir l'aide en ligne pour plus de détails.)
La méthode qui fonctionne tout le temps avec un recordset supportant .MoveLast, est de faire un .MoveLast pour mettre à jour .RecordCount.
Ensuite faire un .MoveFirst si tu dois parcourir l'ensemble du jeu d'enregistrements.

A+

[AidezMoiSvp]

Merci à vous deux pour les explications