使用 Docmd.Setpropertywidth

Question

我有一个搜索，生成一个“Found”表。我希望使用 VBA 改变表显示（不是表单或报告）中字段 [标题] 之一的宽度。如何使用 Docmd.Setpropertywidth？ 我无法从帮助文件显示的内容中找出语法。

DoCmd.SetProperty Tables![Newfound]!Title, acPropertyWidth = 3000

给出运行时错误 424 - 需要对象

DoCmd.SetProperty Title, acPropertyWidth = acPropertyEnabled, 3000

给出运行时错误 2498 - 您输入的表达式对于其中一个参数来说是错误的数据类型

DoCmd.SetProperty (Title, acPropertyWidth = 3000)

给出编译错误：预期：=

我只是希望它设置表格列“标题”的宽度

Answer 1

我不认为

DoCmd.SetProperty

可以用来设置表格中列的宽度。 至少我无法让它发挥作用。

幸运的是，通过将值直接分配给 ColumnWidth 属性很容易做到。

这是我的数据库中的立即窗口示例：

? CurrentDb.TableDefs("MyTable").Fields("id").Properties("ColumnWidth").Value
 672 
CurrentDb.TableDefs("MyTable").Fields("id").Properties("ColumnWidth").Value = 700
? CurrentDb.TableDefs("MyTable").Fields("id").Properties("ColumnWidth").Value
 700

所以我认为这应该满足你的要求：

CurrentDb.TableDefs("Newfound").Fields("Title").Properties("ColumnWidth").Value = 3000