Discussion :

[docjo]

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.

[zoom61]

Salut,

Peux-tu placer cela avant la requête de mise à jour et me dire ce que cela donne :

Code :

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

Msgbox Nz(Me("Couleur" & i).Value, vbWhite) & chr(10) & Me("Code" & i).Value & chr(10) & Me("Valeur" & i).Value & chr(10) &   i

@+.

[docjo]

Je n'obtiens aucune erreur. Il boucle bien tous les enregistrements en m'affichant :

Code :

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

1
2
3
4
5
 
917503 'c'est un champs numérique pour déterminer la couleur d'une activité dans un planning. Si le champ est vide il affiche 16777215 le code de vbwhite
ai   ' le code de l’activité, champ texte
2   ' la valeur de l'activité dans le planning en temps de travail
1   ' L'index qui va bien de 1 à 18

Pour chaque valeur de i, il me renseigne les champs.

[zoom61]

Et en faisant :

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 & ", 16777215), CodeActivite = '" & Me("Code" & i).Value & "', ValeurCreneau = '" & Me("Valeur" & i).Value & "' WHERE NumActivite = " & i & ";"
DoCmd.SetWarnings True
Next i

[docjo]

Pareil: même erreur.
Mais tes conseils m'ont poussé à bien regarder les noms des champs, vérifier si les auto tabulations sont bien présentes (j'ai vu un topic à ce sujet sur le forum de developpez). Puis je suis tombé sur un lien dans un autre forum (Ici). Je me suis souvenu avoir changé un type de champ (Champ numactivite initialement texte converti en numérique et ne stockant que des chiffres dont pourtant je ne me sers pas dans mon update). J'ai donc recréé une table avec uniquement la structure et entré à nouveau les chiffres.
Le bug a disparu! Ma syntaxe était bonne mais il s'agissait d'un champ qui stockait des chiffre en texte dans un champ numérique.
Va comprendre ...