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
| Do until Rst.EOF
If Rst![PV sur 1 an]>Rst![PV sur 2 ans] Then
varTemp=Rst![PV sur 2 an] ' varTemp doit donc etre declarée plus haut
Else
varTemp=Rst![PV sur 1 an]
end if
If varTemp>Rst![PV sur 3 ans] Then
varTemp=Rst![PV sur 3 an]
Else
end if
If varTemp>Rst![PV sur 4 ans] Then
varTemp=Rst![PV sur 4 an]
Else
end if
If varTemp>Rst![PV sur 5 ans] Then
varTemp=Rst![PV sur 5 an]
Else
end if
Rst.Edit
Rst![Min]=varTemp
Rst.UpDate
Rst.MoveNext
Loop
Rst.Close
Set Rst=Nothing |