列表框值未分配給變量

Question

我想分配一個列表框值給一個變量，但是每次運行代碼時我都會得到無效的空錯誤使用。

Private Sub CmdEnter_Click() 

Dim RS As dao.Recordset 
Dim RS2 As dao.Recordset2 

Dim FirstName As String 
Dim Lastname As String 

Dim I As Integer 
Dim Department As String 


FirstName = TxtFirstName.Value 
Lastname = TxtLastName.Value 

With LstDepartment 

For I = 0 To LstDepartment.ColumnCount 
    Department = LstDepartment.Column(I) 
Next I 

MsgBox Department 

End With 

'Set RS = CurrentDb.OpenRecordset(DBO_UserNamesTbl) 

Set RS = db.OpenRecordset("INSERT INTO DBO_UserNamesTbl (UserNo, FirstName, LastName, Department) VALUES (1, Firstname, lastname, department)") 

'RS.Execute "INSERT INTO DBO_UserNamesTbl (UserNo, FirstName, LastName, Department) VALUES (1, Firstname, lastname, department)" 

Set RS = db.closerecordset(DBO_UserNamesTbl) 

End Sub 

列表框從已創建的表稱爲部門所得到的信息，它表明，讓我選擇沒有問題的值。

Answer 1

您需要訪問ListBox的「List」屬性以訪問其值。你可以發佈你用來填充列表框的代碼嗎？然後我可以給你更多關於如何訪問它的細節。