附件示例点击此处下载

截   图:

源   码:

'修改“员工编号”字段的数据类型为整数型
Sub 修改字段类型()
    Dim Sql As String
    Sql = "Alter TABLE T_员工资料 Alter COLUMN 员工编号 Integer"
    DoCmd.RunSQL Sql
End Sub