ms-access - 未分配给变量的列表框值

Question

我正在尝试将列表框值分配给变量，但是每次运行代码时都会出现 Invalid use of Null 错误。

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”属性以访问其值。您能否发布您用于填充列表框的代码？然后我可以为您提供有关如何访问它的更多详细信息。