Bonjour à tous,
Je dois faire une recherche sur une table Access sur un champ non indexé, j'utilise pour ca les méthodes find :
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
20
21
22
23
24
25
26
27
28
29
30
 
 
          Dim DbIns As DAO.Database
          Set DbIns = CurrentDb
          Dim DbRstIns As DAO.Recordset
 
 
          Set DbRstIns = DbIns.OpenRecordset("select  *  from Tab_Insertions;")
 
          Dim strCritere As String
             strCritere = "Num_Archives = " & Chr(34) & oWSht.Cells(i, 8) & Chr(34)
 
            DbRstIns.FindFirst strCritere
 
            If Not (DbRstIns.NoMatch) Then
              MsgBox "1ere Insertion trouvée"
 
              Do While Not DbRstIns.NoMatch
                MsgBox "Insertion suivante trouvée"
 
                If (DbRstIns.EOF) Then
                  DbRstIns.FindLast strCritere
                  MsgBox "der inser"
                    Else
                  DbRstIns.FindNext strCritere
                End If
 
              Loop
 
            End If
Le problème est que tel que je l'ai écris il me compte un enregistrement de plus chaque fois et ne trouve jamais la fin de fichier. Faut il utiliser les méthodes move pour se déplacer dans le recordset pour arriver en fin de fichier ?
Si quelqu'un peut m'aider merci