Question

我正在寻找修剪Access表中所有文本/备注字段的最简单方法。我目前正在使用......

    Public Sub Trimmer()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field

    Set db = CurrentDb
    Set tdf = db.TableDefs("tblName")
    For Each fld In tdf.Fields
    Debug.Print fld.Name
    If fld.Type = dbText Or fld.Type = dbMemo Then
    Debug.Print "Since " & fld.Name & " is a text or Memo field we should trim it."
        CurrentDb.Execute ("UPDATE tblName SET tblName.[" & fld.Name & "] = Trim([" & fld.Name & "]);")
    End If
    Next
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
    end sub

有更简单的方法吗？

Answer 1

您只能修剪所需的字段/记录：

CurrentDb.Execute ("UPDATE tblName SET [" & fld.Name & "] = LTrim([" & fld.Name & "]) Where Left([" & fld.Name & "], 1) = ' ';")

使用Microsoft Access，VBA和SQL，修剪表中所有字段的最简单方法是什么？

1 个答案: