Problème avec un Insert

Version imprimable

Bonsoir,
Mon problème est le suivant :
j'ai un RecordSet qui me dit quels sont les valeurs à ré-actualiser (c.à.d. dont la dernière ré-actualisation est > 1 an). Pour ces valeurs j'inscris dans une table Log leurs caractéristiques. Cela donne le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 SQLup = "INSERT INTO Log ( Num, Jour, Heure, Auteur, [Action], Compteur, Libellé, Impact, Type ) " SQLup = SQLup & "VALUES (time()*1, Date(), time(), '1E-Ecran Présentation', 'Ré-évaluation', 1, " SQLup = SQLup & "Comments, 'Valeurs', 'LOG');" SQL = "SELECT ucase(Index) as Indx, Titre, (Estimation + (Estimation * 3/100)) as NewVal FROM Valeurs WHERE (date() - DateEstimation) > 365 ;" Set Curseur = CurrentDb.OpenRecordset(SQL) While Not Curseur.EOF Comments = Curseur.Fields("Indx").Value & " " & Curseur.Fields("Titre").Value & " estimé(e) à " & Curseur.Fields("NewVal").Value & " €" MsgBox "A ré-évaluer : " & Comments, vbInformation, "ScripoGest" DoCmd.RunSQL (SQLup) Curseur.MoveNext Nb = Nb + 1 Wend
Quand j'éxécute ce code j'ai une invite qui me demande d'entrer une valeur pour la variable Comments. Je ne comprends pas car dans

Code:

MsgBox "A ré-évaluer : " & Comments, vbInformation, "ScripoGest"

la variable Comments est bien renseignée, j'ai l'impression que c'est SQL qui la connait pas.
Quelqu'un peu-il me donner une explication et une solution ?
Par avance merci.

bonjour,
Comments n'est pas une variable connue en tant que telle par ton SQL. De plus, ton code ne se déroule pas dans le bon ordre on dira

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
SQL = "SELECT ucase(Index) as Indx, Titre, (Estimation + (Estimation * 3/100)) as NewVal  FROM Valeurs WHERE (date() - DateEstimation) > 365 ;"
    Set Curseur = CurrentDb.OpenRecordset(SQL)
 
    While Not Curseur.EOF
        Comments = Curseur.Fields("Indx").Value & " " & Curseur.Fields("Titre").Value & " estimé(e) à " & Curseur.Fields("NewVal").Value & " €"
        MsgBox "A ré-évaluer : " & Comments, vbInformation, "ScripoGest"
        SQLup = "INSERT INTO Log ( Num, Jour, Heure, Auteur, [Action], Compteur, Libellé, Impact, Type ) "
        SQLup = SQLup & "VALUES (time()*1, Date(), time(), '1E-Ecran Présentation', 'Ré-évaluation', 1, "
        SQLup = SQLup & "'" & Comments &"', 'Valeurs', 'LOG');"
        DoCmd.RunSQL (SQLup)
        Curseur.MoveNext
        Nb = Nb + 1
    Wend

20/06/2008, 17h38
Arola78

OK ça a l'air de fonctionner :mrgreen:
:merci: