Discussion :

[Neuromancien2]

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]

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

Un petit F1 sur FindNext devrait t'éclairer.

[Neuromancien2]

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]

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]

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

[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.

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...