Discussion :

[ludion62]

Bonjour à toutes et tous,

Pourriez-vous m'indiquer comment mettre à jour tous les champs vides d'une table par la valeur 0 en une seule requête ?
Je galère actuellement en faisant des requêtes "mise à jour" sur chaque colonne

Merci.

[Pwouaro]

Salut,


Peut-etre ça :

Code :

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

1
2
3
4
UPDATE matable
SET champ1 = 0, champ2 = 0, champ3 = 0
WHERE condition

[ludion62]

Je te remercie mais cela m'oblige qd même à faire une requête par colonne ?

[LedZeppII]

Bonsoir,

dans ce cas on peut utiliser du code pour exécuter une requête par champ.

Code vb :

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
Sub Test()
Dim arrChamps()
arrChamps() = Array("Champ 1", "Champ 2", ..., "Champ n")
RemplaceNullParZero "Ma Table", arrChamps()
End Sub
 
Sub RemplaceNullParZero(strTable As String, arrChamps())
Dim strUPDT As String, i As Integer
 
DoCmd.SetWarnings False
For i = LBound(arrChamps) To UBound(arrChamps)
    strUPDT = "UPDATE [" & strTable & "]" & vbCrLf & _
              "SET [" & strTable & "].[" & arrChamps(i) & "]=0" & vbCrLf & _
              "WHERE ([" & strTable & "].[" & arrChamps(i) & "] Is Null)"
    DoCmd.RunSQL strUPDT
Next
DoCmd.SetWarnings True
End Sub

A+