Discussion :

[xeron33]

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

[marot_r]

Bonjour.

Je ne saisi pas bien ton problème mais voici un exemple de code parcourant des données avec un FindNext().

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:set db=currentdb
dim r as dao.rcordset:set r=db.openrecordset("nomSource", dbOpenDynsaet)
dim critere as string:critere="un critere"
 
call r.findfirst(critere)
 
do while not r.nomatch()  'Boucle tant qu'il y a des enregistrements correspondant au critère 
   'ici du code
   call r.FinNext(critere)
loop
 
r.close: set r=nothing
db.close:set db=nothing

[xeron33]

Bonjour.

Je ne saisi pas bien ton problème mais voici un exemple de code parcourant des données avec un FindNext().

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:set db=currentdb
dim r as dao.rcordset:set r=db.openrecordset("nomSource", dbOpenDynsaet)
dim critere as string:critere="un critere"
 
call r.findfirst(critere)
 
do while not r.nomatch()  'Boucle tant qu'il y a des enregistrements correspondant au critère 
   'ici du code
   call r.FinNext(critere)
loop
 
r.close: set r=nothing
db.close:set db=nothing

************************************************
Merci pour ta réponse, ton idée est bonne je me compliquais la vie avec des "findLast" qui ne servent à rien puisqu'il suffit en effet de chercher jusqu'à la fin de la table, de plus je plaçais mal mon "MsgBox" c'est pour quoi il affichait une fois de trop le "match".
Merci à toi