Erreur dans le code de mise a jour du champ d'1 table:rs.Datesauvi=Date,i un entier

**cassidy** · 23/08/2006, 13h02

salut

j'ai une table nommé parametres contenant les champs:
datedernieresauv,datesauv0,datesauv1,datesauv2 devant me permettre de stocker les dates de sauvegarde respactive de la drniere sauvegarde,de la 3e plus recente ,et de la 2e plus recente de ma base de données .en fait je veux concerver chaque fois les 3 plus recentes copies des back up.mais cette partie du code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim rs As DAO.Recordset
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("Paramètres", dbOpenDynaset)
 
i=DateDiff("d", rs!Datesauv0, Date)'calcule la difference     
 rs.Edit
 rs.Datesauv+i= Date 
 rs.Update

devrait mettre dans le champ Datesauvi de ma table et selon la valeur de i calculée,la date courante.Mais j'ai justement une erreur a cette ligne

Code :

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

1
2
 
rs.Datesauv+i= Date

ma question est de savoir comment associé la valeur de i au champ DateSauv et executé correctement le code rs.Datesauvi = Date,sachant que i est un entier compris entre 0,1 et 2

Merci d'avance