Discussion :

[pierre031]

Bonjour,

J'ai une table avec 40 champs - dont certains champs sont vides et d'autres pas - et je souhaitais remplacer les champs vides par le mot "vide". Est-ce possible de le faire en une fois par une requete?

Le problème d'une requete de mise à jour est que je dois le faire champ à champ car sinon il y a des critères, et donc seul le champ respectant ses critères se met à jour.

Je souhaite que tous les champs de la table se mettent à jour avec le mot "vide" que si le champ est bien évidemment vide

Merci d'avance

[madefemere]

Bonjour,

Un code (NON TESTE ) qui devrait faire l'affaire :

Code :

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
Public Sub MajNullAVide()
Dim bd As DAO.Database
Dim tbinit As DAO.Recordset
Dim i As Integer
Dim ssql As String
Set bd = CurrentDb
Set tbinit = bd.OpenRecordset("TaTable", dbOpenDynaset)
    For i = 0 To tbinit.Fields.Count - 1 ' Parcourir tous les champs
        'Lancer la requête mise à jour
        ssql = "UPDATE TaTable SET Tatable." & tbinit.Fields(i).Name & "= 'Vide'" _
        & " WHERE ISNULL(Tatable." & tbinit.Fields(i).Name & ")"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql
    DoCmd.SetWarnings True
    Next i
tbinit.Close: Set tbinit = Nothing
bd.Close: Set bd = Nothing
End Sub

Cordialement,

[pierre031]

Désolé mais le VBA je n'y connais rien... par une requete ce n'est pas possible ? là ce code n'a pas l'air de marcher

[madefemere]

Si c'est par "requête", donc il faudrait tester un à un chaque champ comme tu dis dans ton premier message.

Bonne continuation

EDIT : Au fait, si tu l'avais commencé au moment où t'as posté ton 1er message, actuellement, tu aurais mis à jour tes 40 champs.