Mise à jour des champs NULL

[fanah]

Bonjour,

J'utilise Access 2007, et j'aimerai remplacer les valeurs null de tout les enregistrement de ma table par une autre caractère .

Je veut le faire dynamiquement, c'est à dire sans préciser les noms des champs de ma table dans ma Clause WHERE .

Est ce que quelqu'un a une idée .

Merci.

[marot_r]

Combien as-tu de champs ?

Vas-tu faire cela souvant ?

A+

[fbtsra]

Bonjour,

Voici une option en code pour balayer votre table (dans cet exemple la table se nomme test2) et remplacer les valeurs nulles :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Dim res As Recordset
Dim CARN As String
Dim cpt1s, cpt1e, cpt2s, cpt2e As Long
 
'Définie la valeur de remplacement des champs Null
CARN = "'new'"
 
'Ouvre la table concernée, ici Test2
Set res = CurrentDb.OpenRecordset("TEST2")
 
'Initialise le recordset et les compteurs pour balayer la table
res.MoveLast
res.MoveFirst
 
cpt1s = 0
cpt1e = res.Fields.Count
 
cpt2s = 0
cpt2e = res.RecordCount
 
'Lancement du balayage de la table par champ puis par enregsitrement
 
While Not cpt1s = cpt1e
 
While Not cpt2s > cpt2e
 
If "" & res.Fields(cpt1s) = "" Then
res.Edit
res.Fields(cpt1s) = CARN
res.Update
End If
 
cpt2s = cpt2s + 1
 
If cpt2e <> cpt2s Then
res.MoveNext
End If
 
Wend
 
cpt2s = 0
res.MoveFirst
cpt1s = cpt1s + 1
Wend
 
Set res = Nothing

Bcdt