Discussion :

[Nashe]

bonjour
j'aimerais parcourir ma table , et évaluer les valeurs consécutives d'un champ.

movefirs, last,... ne repondent pas à mon besoin.

litteralemment je veux faire cela: si le champ lieu de l'enregistrement courant est = paris2 et le champ lieu de l'enregistrement précédent est = paris1
ou inversement

sous excel j'aurais utiliser ce code :

Code :

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

1
2
3
i = 2
 
if feuil.Range("C" + CStr(i)).Value = "Paris2" and feuil.Range("C" + CStr(i-1)).Value = "Paris1" or .......

je ne sais pas comment m'y prendre sous access. j'ai essayé ce code mais il me rejette à cause de ("lieu"+n)
j'aimerais utiliser l'index, mais je ne sais pas comment m'y prendre

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
 'DoCmd.OpenTable "TableCompte,acViewNormal ,acEdit"
    'atteint le dernier enregistrement
rst.MoveLast
 
'compte les enregistrements
lngNbEnregistrement = rst.RecordCount
 
 For n = 0 To rst.RecordCount
 
     rst.MoveNext
 
         If rst.Fields("lieu" + n).Value = Paris1 And rst.Fields("lieu" + (n - 1)) = Paris2 _
         Or rst.Fields("lieu" + n).Value = paris2 And rst.Fields("lieu" + (n - 1)) = paris1
 
         ............................
        End If
 
Next

merci de m'aiguiller!!!!

[nico84]

Bonsoir,

Le plus simple me semble de stocker la valeur précédente dans 1 variable locale :

Code :

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

1
2
3
4
5
for i=1 to rst.recordcount-1
prec=rst!monchamp
rst.movenext
if (rst!monchamp=paris1 and prec=paris2) or (rst!monchamp=paris2 and prec=paris1) then ...
next

[Nashe]

merci, pour lle code

je vais la tester!!!

[Nashe]

Je l'ai testé ça fonctionne!!!