Rebonjour

J'ai un petit problème de syntaxe avec mon "Insert Into" , je pense avoir fait correctement cependant l'erreur persiste.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
Dim NbEvt As Integer
Dim NbMode As Integer
NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine.Value)
NbMode = 2 ^ (NbEvt)
For i = 1 To i = NbMode
DoCmd.RunSQL "INSERT INTO Modes ([NomMode],[IDMachine]) VALUES ("Mode",'" & Me.ModifIDMachine & "')"
Next
End Sub
Ereur de syntaxe visant mon Insert Into , aparament le probleme vien de "mode" dapres ce que j'ai compris , cependant je ne vois pas ou j'ai fais l'erreur , j'ai essayé de remplacer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
'" & Me.ModifIDMachine & "'
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
"Me.ModifIDMachine.Value"
Mais ça ne change rien ...
avez vous une idée s'il vous plait?