Function 遍历替换()
    On Error Resume Next
    Dim db As Database
    Dim tblName As String
    Dim fldName As String
    Dim SQLstr As String
    Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        tblName = db.TableDefs(i).Name    '遍历表
        If Mid(tblName, 1, 4) <> "MSYS" Then    '避开系统表(以'MSYS'开头)
            Set rst = CurrentDb.OpenRecordset(tblName, dbOpenDynaset)
            For Each fld In rst.Fields    '遍历字段
                fldName = fld.Name
                '替换字段中的内容
    SQLstr = " update " & tblName & " set " & fldName & "= Replace(" & fldName & ",'，','、');"  

               'DoCmd.SetWarnings False
                DoCmd.RunSQL SQLstr
            Next
        End If
    Next
End Function