Discussion :

[Bubudu77]

Bonjour à tous

Je souhaite afficher les données d'une table à l'aide d'une requête SELECT, mais il ne m'affiche que la première ligne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    Dim rcdIG As DAO.Recordset
    Dim sqlIG As String
    Dim dbs As DAO.Database
    Set dbs = CurrentDb
 
sqlIG = "SELECT MissionLink FROM Findings " _
                & "WHERE MissionLink = 'AA002873'"
 
            Set rcdIG = dbs.OpenRecordset(sqlIG)
 
            If rcdIG.RecordCount > 0 Then
 
                MsgBox ("Nombre de lignes Finding/Reco = " & rcdIG.RecordCount)
 
                rcdIG.MoveFirst
 
                If Not rcdIG.EOF Then
'... la suite

Ma table toute simple:

ReferenceFinding DescriptionFinding MissionLink
F007272 Ma description du finding AA002873
F007274 Ma description du finding 02 AA002873

Mon msgbox me renvoie 1

J'ai pourtant deux lignes avec MissionLink = AA002873!

J'ai volontairement simplifié ma requete SQL pour résoudre ce problème, mais rien n'y fait, il ne prends que la première ligne
La suite du code permet d'afficher les résultats, et seule la première ligne "F007272 Ma description du finding AA002873" est (correctement) affichée et prise en compte

Quand je selectionne une seule ligne (la première ou la deuxième) avec

Code :

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

1
2
sqlIG = "SELECT MissionLink FROM Findings " _
                & "WHERE MissionLink = 'AA002873' AND ReferenceFinding = 'F007274'"

ou

Code :

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

1
2
3
 
sqlIG = "SELECT MissionLink FROM Findings " _
                & "WHERE MissionLink = 'AA002873' AND ReferenceFinding = 'F007272'"

j'ai mes lignes, c'est ok

Si quelqu'un a une idée

[marot_r]

Bonjour.

C'est une "fonctionnalité" (un bug d'après moi) de la propriété pour les recordsets DAO qui n'est correctement renseignée que quand tu as parcouru toutes les données.

Donc à l'ouverture cela indique seulement que tu vas avoir des données : 1 ou 1 000 000 on ne le sait pas.

Si tu veux avoir le vrai nombre il faut faire quelque chose comme :

Code :

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

1
2
3
4
if not rcdIG.eof
   rcdIG.movelast
   rcdIG.movefirst
   debug.print rcdIG.recordcount

A+