Bonjour,

Je veux donner une variable vba à une requete update.

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
 
Private Sub Commande0_Click()
 
Annee_courante = Year(Date)
Moi_courant = Month(Date)
Dim var As String
Champ = "Réel à fin " & Annee_courante
 
'Réel
For i = 1 To (Moi_courant - 1) Step 1
        k = Format(i, "00")
        var = "Réel " & Annee_courante & "-" & k
Next i
DoCmd.SetWarnings False
DoCmd.RunSQL " UPDATE Budget SET Champ = var "
DoCmd.SetWarnings False
 
End Sub
Merci de vos réponse !