遍历表，遍历字段，遍历内容

时　间:2014-05-16 10:47:54
作　者:在水一方   ID：20576  城市：沈阳
摘　要:一个网友的问题：access数据库怎样把所有表的所有字段里的逗号改成顿号？
答：这可以使用遍历的方法实现。
正　文:

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