Discussion :

[mehdido04]

Bonjour,

J'ai besoin d'aide, je veux mettre la valeur de var dans set.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Annee_courante = Year(Date)
Dim var As String
 
For k = (Annee_courante - 4) To (Annee_courante - 1) Step 1
    var = "ETP WE " & k
    DoCmd.SetWarnings False
    DoCmd.RunSQL " UPDATE CVC_Annuel SET "' & var & '" = 33 WHERE [Nature de coût TEI]='" & [Jours Homme] & "';"
    DoCmd.SetWarnings False
Next k

Mais ça ne marche pas !!!

Merci

[Jean-Philippe André]

il faut mettre ta var entre les guillemets mais sans les apostrophes

Code :

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

DoCmd.RunSQL " UPDATE CVC_Annuel SET " & var & " = 33 WHERE [Nature de coût TEI]='" & [Jours Homme] & "';"