Question

我正在使用VBA创建动态临时表。该表存储了一些值，以便在存储到数据库之前由用户进行处理和确认。

我设法使用下面的代码将其中一个表格字段显示为ComboBox

Set prp = fld.CreateProperty("DisplayControl", vbLong, acComboBox)
fld.Properties.Append prp

但是我不知道如何填充ComboBox显示的字段我尝试为RowSourceType和RowSource创建另一个属性，但我不知道如何填充参数。

Set prp = fld.CreateProperty("RowSourceType", ?, ?)

Answer 1

好的，我在发布问题后不久就找到了答案。我会给那些可能需要它的人留下答案。

Set prp = fld.CreateProperty("RowSourceType", dbText, "Table/Query")
fld.Properties.Append prp
Set prp = fld.CreateProperty("RowSource", dbText, "SELECT * FROM TBL;")
fld.Properties.Append prp

您还可以添加以下两个属性来设置列数和列宽。

Set prp = fld.CreateProperty("ColumnCount", dbInteger, 2)
fld.Properties.Append prp
Set prp = fld.CreateProperty("ColumnWidths", dbText, "0;1440")
fld.Properties.Append prp

设置在Access VBA中具有ComboBox显示控件的字段的RowSource属性

1 个答案: