VBA 显示列表框始终为空，即使选择了选项也是如此

Question

我创建了一个列表框并将其从 GUI 添加到我的用户表单中。列表框是单个 select 并且是一列。通过行源添加了 3 个选项；值是“”，"jimmy"，"jack"，我有以下 vba 以确保选项是 selected

If IsNull(Me!List10) Then
    MsgBox "Please Select A Value!", vbOKOnly
    Me.List10.SetFocus
    Exit Sub
Else
    selectedoption = Me!List10
End If

现在我遇到的问题是，即使 select 编辑了一个值，MsgBox 仍然显示通知用户 select 一个值，因此无法通过！检查列表框是否为空的正确语法是什么？

编辑
如果用户在列表框仍处于 selected（有焦点）时单击用户窗体上的按钮，此语法将起作用，但如果列表框没有焦点，语法似乎无法保留值...

Answer 1

我第一次没注意到你的值列表中的第一个条目是“”。

一个 "fix" (hack) 是添加一个 space " "。

只有在选择第一个条目时才会出现此问题。它需要在那里吗？

VBA 显示列表框始终为空，即使选择了选项也是如此

VBA Shows Listbox is Always Null Even When Option Is Selected

ms-access

vba

listbox

ms-access-2013