액세스 vba를 사용하여 목록 상자 항목으로 열 데이터를 추가하는 방법

Question

테이블 열 데이터를 목록 상자 항목으로 추가하려고하는데 테이블 열 이름을 목록 상자 항목으로 추가하려고했습니다. 그러나 어떻게 테이블 열 데이터를 목록 상자 항목으로 추가합니까? 제가

Column1 

A 
B 
C 
D 
E 

제가리스트 박스 항목 표 열 이름을 추가하는 시도 테이블, VBA 나리스트 박스 항목으로, B, C, D, E를가 어떻게

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 

을 갖는다.

Answer 1

표/쿼리에 콤보 RowSourceType을 설정하고 RowSource에 테이블 이름이나 SQL을 사용하십시오.

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

올바른 바운드 열, 열 수와 열 너비를 설정해야합니다. 대부분의 경우 목록 상자가있는 코드가 필요하지 않으며 속성 시트 만 사용하면됩니다. MS Access를 처음 사용하는 경우 마법사를 사용하는 것이 유용합니다.