Discussion :

[kervin]

Bonjour,

J'ai une table dont je voudrais mettre à jour 12 champs (1/mois).
Plutôt que d'écrire 12 requetes dans mon code, j'ai essayé un truc dans ce genre ci

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i as integer
Dim J as string
 
For i = 1 to 12
     J = "Mois_" & i & "T"
     Docmd.runSQL("Update MaTable set Matable.'"& J &"' = '0' where (((MaTable. '"& J &"') is null));")
     i = i +1
next i

Quand j'exécute le code il me demande le parametre de MaTable.'Mois_1T'

J'ai essayé différente combinaison avec ou sans ' " , les erreurs sont différentes ... et ça ne fonctionne pas

QQ as-il une idée ??

... C'est grave docteur ?

[Jean-Philippe André]

Hello,

Attention aux espaces qui s'insinuent dans ton texte
si ton nom de champs est constamment attaché et sans caractères spéciaux (accents notamment) tu peux aisément transformer ton code en

Code :

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

1
2
3
4
5
For i = 1 to 12
     J = "Mois_" & i & "T"
     Docmd.runSQL("Update MaTable set "& J &" = '0' where "& J &" is null;")
     i = i +1
next i

Attention aussi au type de ton champs. Ici il doit être de type textuel. Si ce n'est pas le cas, tu dois supprimer les apostrophes.

Petite astuce pour la requête, tu peux même la transformer en

Code :

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

Docmd.runSQL("Update MaTable set "& J &" = Nz(" & J & ",'0')")

ou

Code :

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

Docmd.runSQL("Update MaTable set "& J &" = Nz(" & J & ",0)")

dans le cas d'une valeur numérique

[kervin]

Merci pour ton aide, ça risque de m'être fort utile à l'avenir.