Discussion :

[MissTi]

Bonjour à tous,
J'ai eu l'infini bonheur de me faire refourguer une base de données de 130 tables à remplir ayant chacune de 2 à n champs à remplir.
Approchant du but, on vient de m'informer qu'aucun accent, apostrophe ou caractère spécial n'est toléré.

Touchant un peu en VBA, je cherche un script qui me permettrait de faire un chercher/remplacer pour chaque caractère spécial identifié dans chaque champ de chaque table. Le code suivant bugue mais je ne trouve pas où est l'erreur de syntaxe:

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
19
20
21
22
23
24
Public Function Remplacer_Tout() As String
 
'Gestion d'erreur
'On Error Resume Next
'Declaration des variables
Dim T As DAO.TableDef
Dim F As DAO.Field
Dim DB As DAO.Database
 
Set DB = CurrentDb
Debug.Print Chr$(10)
For Each T In DB.TableDefs
    Debug.Print "*****************" & T.Name
    If T.RecordCount <> 0 Then
        For Each F In T.Fields
            If F.Type = 10 Or F.Type = 12 Or F.Type = 18 Then  ' pour  les champs textuels et les tables avec plus d'un enregistrement
                DoCommand.RunSQL "UPDATE " & T.Name & _
                    " SET " & T.Name & "." & F.Name & " =  REPLACE([" & F.Name & "], " & Chr$(34) & "â" &  Chr$(34) & ", " & Chr$(34) & "a" & Chr$(34) & ");"
            End If
        Next F
    End If
Next T
Debug.Print "Fait"
End Function

Ce code me donne des requêtes de la forme:

Code :

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

UPDATE tableXXX SET tableXX.champYY = REPLACE(champYY, "â", "a");

Lors de l'exécution de la fonction, dès la première boucle sur le champ F, l'exécution s'arrête et mentionne

erreur d'exécution '424': Objet requis

.

Je ne vois pas où est l'erreur, d'autant plus que si je copie/colle ce code dans une requête, l'exécution se fait sans soucis.

Une idée?

[User]

Bonsoir,

Peut-être essayer le code disponible dans cette contribution.

Cdlt,

[MissTi]

J'ai jeté un oeil à la contribution. Elle permet de faire des remplacements dans les noms des tables, des champs, dans les formulaires, les états...
Mais pas dans les données même.

[User]

Désolé, j'avais lu un peu trop vite hier soir...

J'ai regardé votre code et je vois que vous utilisez DoCommand au lieu de DoCmd :

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
19
20
21
22
23
24
Public Function Remplacer_Tout() As String
 
'Gestion d'erreur
'On Error Resume Next
'Declaration des variables
Dim T As DAO.TableDef
Dim F As DAO.Field
Dim DB As DAO.Database
 
Set DB = CurrentDb
Debug.Print Chr$(10)
For Each T In DB.TableDefs
    Debug.Print "*****************" & T.Name
    If T.RecordCount <> 0 Then
        For Each F In T.Fields
            If F.Type = 10 Or F.Type = 12 Or F.Type = 18 Then  ' pour  les champs textuels et les tables avec plus d'un enregistrement
                DoCmd.RunSQL "UPDATE " & T.Name & _
                    " SET " & T.Name & "." & F.Name & " =  REPLACE([" & F.Name & "], " & Chr$(34) & "â" &  Chr$(34) & ", " & Chr$(34) & "a" & Chr$(34) & ");"
            End If
        Next F
    End If
Next T
Debug.Print "Fait"
End Function

Cdlt,

[MissTi]

J'ai regardé votre code et je vois que vous utilisez DoCommand au lieu de DoCmd

Ah bah, oui, ça marche beaucoup mieux avec un DoCmd!!!

In fine, cadeau pour tout le monde, une petite fonction pour chercher-remplacer un élément (mot, caractère...) dans tous les champs de toutes les tables (hors celles du système) de la base de données:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Function Remplacer_Tout() As String
 
'Gestion d'erreur
On Error Resume Next
'Declaration des variables
Dim T As DAO.TableDef
Dim F As DAO.Field
Dim DB As DAO.Database
'Vide le treeview
Set DB = CurrentDb
DoCmd.SetWarnings False
 
Debug.Print Chr$(10)
 
 
'Liste les tables
For Each T In DB.TableDefs
    Debug.Print "*****************" & T.Name
    If T.RecordCount <> 0 And Left$(T.Name, 4) <> "MSys" Then
        For Each F In T.Fields
            If F.Type = 10 Or F.Type = 12 Or F.Type = 18 Then
                Debug.Print "a, e, u, c, ', i, o"
                DoCmd.RunSQL "UPDATE " & T.Name & _
                    " SET " & T.Name & "." & F.Name & " = REPLACE([" & F.Name & "], " & Chr$(34) & "â" & Chr$(34) & ", " & Chr$(34) & "a" & Chr$(34) & ");"
                DoCmd.RunSQL "UPDATE " & T.Name & _
                    " SET " & T.Name & "." & F.Name & " = REPLACE([" & F.Name & "], " & Chr$(34) & "à" & Chr$(34) & ", " & Chr$(34) & "a" & Chr$(34) & ");"
                DoCmd.RunSQL "UPDATE " & T.Name & _
                    " SET " & T.Name & "." & F.Name & " = REPLACE([" & F.Name & "], " & Chr$(34) & "ç" & Chr$(34) & ", " & Chr$(34) & "c" & Chr$(34) & ");"
                '.....
            End If
        Next F
    End If
Next T
DoCmd.SetWarnings True
Debug.Print "Fait"
End Function

Attention pour les novices: quand vous lancez ce script, vous ne pouvez revenir en arrière sur ces chercher/remplacer!