Discussion :

[berti]

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

[Keihilin]

Tu essais de mettre une date dans un Int...

Essais comme ça :

Code :

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

1
2
 
   anneevid = Year(rst![DATE]) + 4

[berti]

putain j'avais pas vu ma déclaration j'ai pas ouvert mes yeux

parcontre j'ai une boucle infinie, as tu une idée

il me faut surement un compteur mais je ne vois pas comment l'insérer

[Keihilin]

si tu ajoutes un rst.Movenext avant ton Loop, ça devrait être bon.