How to add column data as listbox items using access vba

Question

I'm trying to add table column data as listbox items, i tried to add table column names as list box items. But how do i add table column data as listbox items. I have a table

Column1

 A
 B
 C
 D
 E

I tried adding table column names as listbox items, 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

How do i have A,B,C,D,E as listbox items.

Fionnuala · Accepted Answer · 2014-04-28 14:44:33Z

2

Just set the combo RowSourceType to Table / Query and either use the table name or SQL for RowSource.

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

Make sure you set the correct Bound Column, Column Count and Columns Widths. For the most part, there is no need for code with listboxes, just use the property sheet. If you are new to MS Access it is often useful to use the wizards.

answered Apr 28, 2014 at 14:44

Fionnuala

91.4k7 gold badges121 silver badges155 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to add column data as listbox items using access vba

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related