【发布时间】:2020-07-13 23:11:48
【问题描述】:
我有一个从 excel 导入的超过 100 列的表来访问 2007,我想将字段的所有数据类型更改为备忘录,厌倦了手动单击数据类型下拉列表,我可以做它是通过VBA 还是SQL 语句?谢谢!
【问题讨论】:
标签: ms-access types vba ms-access-2007
我有一个从 excel 导入的超过 100 列的表来访问 2007,我想将字段的所有数据类型更改为备忘录,厌倦了手动单击数据类型下拉列表,我可以做它是通过VBA 还是SQL 语句?谢谢!
【问题讨论】:
标签: ms-access types vba ms-access-2007
我终于修好了:
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
看看这对这里的任何人是否有帮助,再次感谢。
【讨论】: