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

我创建了一个列表框，并将它从GUI中添加到我的用户表单中。列表框是单选，是一列。通过行来源添加了3个选项;值是“”，“吉米”，“杰克”和我有以下VBA来确保一个选项被选中即使选择了选项，VBA显示列表框始终为空

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

现在，即使当值选择MSGBOX仍显示通知我有问题用户选择一个值，所以没有办法通过！什么是正确的语法来检查列表框是否为空？

编辑
如果用户点击用户窗体上的按钮，同时还选择列表框中这句法将工作（具有焦点），但似乎语法不能保留，如果列表框中的值没有焦点...

来源

2017-05-29 IcyPopTarts

列表框的绑定列属性的值是什么？它必须是1否则该列表框将始终返回null。 – mdialogo

@mdialogo - 它被设置为1.如果按下按钮时列表框具有焦点，并且列表框没有焦点，则列表框将返回适当的值，如果列表框没有焦点，则返回null。 – IcyPopTarts

还有其他事情正在发生。只要你点击按钮，列表框失去焦点，所以我不认为焦点是问题。编辑，见下文。 – wazz

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

一个“修复”（黑客）将增加一个空间“”。

只有在选择第一个条目时，该问题才会发生。它需要在那里吗？

来源

2017-05-30 00:37:08 wazz

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

回答

相关问题