如何添加列數據作爲列表框項目使用訪問vba

Question

我想添加表列數據作爲列表框項目，我試圖添加表列名稱作爲列表框項目。但我如何添加表列數據作爲列表框項目。 我有一個表

Column1 

A 
B 
C 
D 
E 

我嘗試添加表的列名的列表框項，VBA

Sub item1() 

On Error Resume Next 

Dim i As Integer 'Index for loop 

    With Me.lstbox 
     .RowSourceType = "Value List" 'Set rowsource type 
     .RowSource = "" 'Clean combo contents 
    End With 

    For i = 1 To CurrentDb.TableDefs("table1").Fields.Count 
    Me.lstbox.AddItem (CurrentDb.TableDefs("table1").Fields(i -1).Name) 

    Next i 
    End with 
End sub 

我怎麼有A，B，C，d，E爲列表框項目。

Answer 1

只需將組合RowSourceType設置爲Table/Query，然後使用RowSource的表名或SQL即可。

With Me.lstbox 
    .RowSourceType = "Table/Query" 'Set rowsource type 
    .RowSource = "Select Field1 From Table1" 
End With 

確保設置了正確的綁定列，列數和列寬。大多數情況下，不需要帶有列表框的代碼，只需使用屬性表即可。如果您是MS Access的新手，使用嚮導通常很有用。