如何使用access 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，并使用表名或SQL作为RowSource。

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

确保设置正确的“绑定列”，“列数”和“列宽”。在大多数情况下，不需要使用列表框的代码，只需使用属性表。如果您是MS Access新手，使用向导通常很有用。