Bonjour à tous

je dois exécuter un ajout de données d'un résultat de requête vers une table.
Mais je dois comparer les dates de la requête avec la date système et faire l'ajout vers la nouvelle table

j'ai une erreur de dépassement de capacité quand je mets la date d'un enregistrement dans une variable.

Quelqu'un a t il une idée ?

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
19
20
21
22
23
24
25
26
27
Private Sub exporter_Click()
    Dim anneemaintenant, anneevid As Integer
    Dim sql, sqlajout As String
 
    anneemaintenant = year(Now())
 
    Dim dbs As Database
    Dim rst As Recordset
 
    Set dbs = DBEngine.Workspaces(0).Databases(0)
 
    sql = "requete sql"
 
    Set rst = dbs.OpenRecordset(sql)
 
    Do While Not rst.EOF
 
        anneevid = rst![DATE] 'l etraitement s'arrête ici
        anneevid = year(anneevid) + 4
 
        If anneevid <= anneemaintenant Then
            sqlajout = "requete ajout"
            DoCmd.RunSQL (sqlajout)
        End If
    Loop
 
End Sub