for each, if, else [Résolu]

[luchoo]

Bonjour, je voudrais utiliser une boucle et pour cela je voudrais utiliser :

...tout le recordset

Code :

1
2
3
4
5
6
7
8
9
10
11
12
dim var1 = rst.("test1")
dim var2 = rst.("test2") 'valeur =artiste
dim var3 = rst.("test3") 'ancienne valeur = artiste
 
for each var1
if var2 <> var3 then
bla bla bla..
enf if
if (ou elseif je sais pas) 
blablabla..
end if
Next

Pouvez-vous m'aider ?

[helas]

Bonjour,
La syntaxe ne semble pas appropriée

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim var1 = rst.("test1")
dim var2 = rst.("test2") 'valeur =artiste
dim var3 = rst.("test3") 'ancienne valeur = artiste
 
for each var1
if var2 <> var3 then
bla bla bla..
enf if
if (ou elseif je sais pas) 
blablabla..
end if
 
Next

donnerait

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim rst As DAO.RecordSet
Set rst=CurrentDB.OpenRecordset("NomTable")   'ouverture de la table
Do Until rst.eof
  If rst("test2")=rst("test3") Then  'test des 2 champs
   bla bla bla..
  Else
   bla bla bla..
 End If
 rst.Movenext    'enregistrement suivant
Loop
rst.Close