Bonjour à Tous

J'essaie de mettre à jour une table selon des champs contenus dans un formulaire mais j'obtiens une erreur 3709: "la clé de recherche n'a été trouvé dans auncun enregistrement"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim i As Integer
 
For i = 1 To 18
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE T_Activite_List SET Couleur=" & Nz(Me("Couleur" & i).Value, vbWhite) & ", CodeActivite='" & Me("Code" & i).Value & "', ValeurCreneau='" & Me("Valeur" & i).Value & "' WHERE NumActivite=" & i & ";"
DoCmd.SetWarnings True
Next i
Aprés maintes recherches partout, je ne trouve pas de solution. Mon index dans la table est NumActivite.
Merci par avance pour vos suggestions.