VBA에서 데이터베이스의 더 많은 데이터 (액세스)를 표시하는 방법은 무엇입니까?

Question

무엇이 문제입니까? ListBox의 ComboBox에서 이름을 선택한 후에는 선택한 회사의 모든 직원을 표시해야합니다. 그리고 지금 내 문제는 항상 ListBox에서 선택한 회사의 직원 2 명만 표시합니다. 다음 코드는 표시 할 책임이 있습니다. 기록을 위해, 나는 VBA에서 새롭다. 그리고 물론, 내 질문은 왜 단지 두 명의 직원입니까?

절차 클릭 콤보 상자에서 선택한 기업에 :

Dim RecordSt As Recordset 
Dim db As Database 
Dim query As String 
Dim strKombi30 As String 
Dim i As Integer 

strKombi30 = Me.Kombi30.Value ''combobox 

query = "SELECT [Employees].[First name], [Employees].[Name] FROM" & _ 
"[Employees] WHERE [Employees].[Company] = '" & Me.Kombi30 

Set db = CurrentDb() 

Set RecordSt = db.OpenRecordset(query) 

RecordSt.MoveFirst 

For i = 0 To RecordSt.RecordCount 

    listContacts.AddItem (RecordSt.Fields("First name").Value & " " & RecordSt.Fields("Name").Value) 

    RecordSt.MoveNext 

Next i 

Answer 1

strKombi30 = Me.Kombi30.Value ''combobox 

query = "SELECT [Employees].[First name], [Employees].[Name] FROM" & _ 
"[Employees] WHERE [Employees].[Company] = '" & strKombi30 & "'"