快速更改Access 2007中的表的数据类型

Question

我有一个从excel导入的> 100列的表来访问2007，我希望将这些字段的所有数据类型更改为备忘录，厌倦了手动单击数据类型下拉列表，我可以通过VBA或SQL语句来做？谢谢！

Answer 1

我最后解决了这个问题：

Dim db As DAO.Database
Dim tdf1 As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tdf = CurrentDb.OpenRecordset("ssi_10q12_v5_table")
Set tdf1 = db.CreateTableDef("ssi_10q12_v5_table_1")


    Debug.Print tdf.Name,
    Debug.Print tdf.Fields.Count
    For x = 0 To tdf.Fields.Count - 1
        Debug.Print tdf.Fields(x).Name,
        Set fld = tdf1.CreateField(tdf.Fields(x).Name, dbMemo)
        tdf1.Fields.Append fld

    Next x

db.TableDefs.Append tdf1
Set fld = Nothing
Set tdf = Nothing

End Sub

看看这是否可以帮助任何人，再次感谢。