Elément non trouvé avec FindFirst

**Neuromancien2** · 17/09/2007, 12h32

Bonjour,

J'effectue une série de recherches dans une table, avec FindFirst. Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each oFl In oFd.Files
            tTablFicCour = Split(oFl.name, " - ")
            sCodeSite = tTablFicCour(0)
 
            rstSites.MoveFirst
            rstSites.FindFirst ("Code_long='" & sCodeSite & "'")
            If rstSites.NoMatch Then
                oFicJournal.WriteLine ("Erreur: Le site '" & sCodeSite & "' n'existe pas.")
                GoTo Fichier_Suivant
            Else
                sNomSite = rstSites("Site_Nom")
            End If
 
Next

Or cela ne fonctionne que pour le premier enregistrement trouvé. Ensuite rstSites.FindFirst me renvoit toujours au premier enregistrement trouvé, et NoMatch est à True, alors que les codes recherchés existent bien.

**AlainTech** · 17/09/2007, 15h33

FindFirst veut dire "trouver le premier".
Le programme fait donc ce que tu lui demandes.

Un petit F1 sur FindNext devrait t'éclairer.

**Neuromancien2** · 17/09/2007, 15h36

Je me suis mal exprimé, mais je pensais que mon code était clair. Lorsque je passe au fichier suivant, j'exécute à nouveau FindFirst, avec le nouveau code en paramètres. Or je suis toujours sur l'enregistrement correspondant au fichier précédent.

**AlainTech** · 17/09/2007, 17h59

Je serais toi, je mettrais un

Code :

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

MsgBox "Code_long='" & sCodeSite & "'"

avant le FindFirst de manière à voir quel paramètre tu lui passes.

**Neuromancien2** · 18/09/2007, 09h49

J'ai déjà regardé. Je passe le bon paramètre.

**AlainTech** · 18/09/2007, 17h19

Dans ce cas, je mettrais un MsgBox affichant un champ déterminant du record après le MoveFirst.
Ceci pour savoir si le MoveFirst a un effet.

Comme on n'a aucune idée ni du type de connexion ni du curseur utilisé (tu ne les montres pas dans ton code), on doit y aller par suppositions et essais...

**Neuromancien2** · 18/09/2007, 17h32

Envoyé par AlainTech

Dans ce cas, je mettrais un MsgBox affichant un champ déterminant du record après le MoveFirst.
Ceci pour savoir si le MoveFirst a un effet.

Non apparemment le MoveFirst n'a pas d'effet ! Il m'affiche toujours le dernier enregistrement traité.

Comme on n'a aucune idée ni du type de connexion ni du curseur utilisé (tu ne les montres pas dans ton code), on doit y aller par suppositions et essais...

J'ai le même problème avec les 2 types de curseurs (dbOpenSnapshot, dbOpenTable ou dbOpenDynaset).
Set rstSites = CurrentDb.OpenRecordset("P_Site", dbOpenDynaset)