即使选择了选项,VBA显示列表框也始终为空

时间:2017-05-29 21:38:07

标签: vba ms-access listbox access-vba ms-access-2013

我创建了一个列表框,并从GUI将其添加到我的用户表单中。列表框是单选,是一列。通过Row Source添加了3个选项;值是“”,“jimmy”,“jack”,我有以下vba以确保选择了一个选项

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

现在我遇到的问题是,即使选择了一个值,MsgBox仍会显示通知用户选择一个值,因此无法通过!检查列表框是否为空的正确语法是什么?

修改
如果用户在列表框仍处于选中状态时单击用户表单上的按钮(具有焦点),则此语法将起作用,但如果列表框没有焦点,则语法似乎无法保留该值...

1 个答案:

答案 0 :(得分:0)

我第一次没有注意到你的价值表上的第一个条目是“”。

一个“修复”(hack)将添加一个空格“”。

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