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 |
Partager