列表框显示表的列名称

Question

我正在尝试获取一个列表框，以显示特定表中可用的所有列（字段）的列表。现在，下面的代码实现了这一点，但使用msgbox显示我不想要的每个字段。

Dim rst As DAO.Recordset
Dim fld As DAO.Field
Set rst = CurrentDb.OpenRecordset("YourTableName")
For Each fld In rst.Fields
    MsgBox fld.Name
Next fld
rst.Close
Set rst = Nothing
Set fld = Nothing

基本上我想要一个组合或列表框来显示特定表中的所有字段 - 这可能吗？

Answer 1

你为自己做得太难了。

在列表框的属性窗格中，设置：

RowSource:     YourTableName
RowSourceType: Field List