在访问VBA中设置字段的Rowsource属性

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