如何用DoCmd.SetProperty设置Access数据表[Title]列宽度？

首先明确：DoCmd.SetProperty仅适用于窗体、报表或其控件，无法直接修改数据表的字段显示宽度，你之前的报错都是因为用错了工具。以下是两种可行的实现方式：

方法一：通过界面操作设置（直观易理解） #

先打开数据表，设置列宽后保存布局：

Sub SetTableTitleColumnWidth()
    ' 打开Found数据表的数据表视图
    DoCmd.OpenTable "Found", acViewNormal
    ' 设置Title字段的列宽（单位：twip，1英寸=1440twip）
    DoCmd.SetColumnWidth "Title", 3000
    ' 保存数据表的布局更改
    DoCmd.RunCommand acCmdSave
    ' 关闭数据表
    DoCmd.Close acTable, "Found"
End Sub

方法二：用DAO后台修改（无需打开界面） #

通过DAO对象直接修改字段的显示属性，适合后台批量操作：

Sub SetTableTitleColumnWidth_DAO()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    
    Set db = CurrentDb
    Set tdf = db.TableDefs("Found")
    Set fld = tdf.Fields("Title")
    
    ' 注意：ColumnWidth属性要求赋值为字符串格式的数值
    fld.Properties("ColumnWidth") = "3000"
    
    ' 释放对象，避免内存泄漏
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Sub

对你之前错误的说明 #

1. 错误1：DoCmd.SetProperty Tables![Newfound]!Title, acPropertyWidth = 3000
   • DoCmd.SetProperty不能识别数据表字段的引用，且语法错误（属性常量和值应该作为独立参数传递，不能用=）
2. 错误2：DoCmd.SetProperty Title, acPropertyWidth = acPropertyEnabled, 3000
   • 参数顺序完全错误，且该方法不支持数据表操作
3. 错误3：DoCmd.SetProperty (Title, acPropertyWidth = 3000)
   • 语法不符合VBA的参数传递规则，且同样不适用于数据表

内容的提问来源于stack exchange，提问作者Michael Colley