有网友提到如何用动态修改列名？想把列名作为一个变量随时修改。

这里我们用DAO代码去处理。首先或者列名，再作修改。

如下图，获取现列名，填入新列名，按修改按钮。

修改列名：

Private Sub Command0_Click()

    If IsNull(Me.新列名) Then

       MsgBox "填入新列名"

    Else

        DoCmd.Close acTable, "表1", acSaveNo

        Dim oldName As String

        Dim newName As String

        Dim db As DAO.Database

        Dim td As DAO.TableDef

        Set db = CurrentDb

        Set td = db.TableDefs("表1")

        oldName = td.Fields(2).Name

        newName = Me.新列名

        td.Fields(oldName).Name = newName

        Me.现列名 = td.Fields(2).Name

        Me.新列名 = Null

        MsgBox "名称已改为" & td.Fields(2).Name

        DoCmd.OpenTable "表1"

    End If

End Sub

获取列名：

Private Sub Form_Load()

    Dim db As DAO.Database

    Dim td As DAO.TableDef

    Set db = CurrentDb

    Set td = db.TableDefs("表1")

    Me.现列名 = td.Fields(2).Name

    DoCmd.OpenTable "表1"

End Sub