列表框顯示列表名稱

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