VBA - Combobox值始终为null

Question

我现在只与VBA合作了大约两个星期，所以如果我用错误的名字打电话，抱歉。无论如何，我在使用组合框时遇到了麻烦。盒子里装满了物品，我可以看到它们，滚动它们然后点击它们。但是，当我单击按钮时，我检查组合框的值，无论我在其中选择了什么项，该值总是为空并被

捕获

If IsNull(ToolReportBox.Value) = True Then
    MsgBox "Please Enter a tool"
    Exit Sub
End If

如果我没有检查，并尝试将值分配给诸如

之类的刺痛

Dim toolName_str As String
    toolName_str = ToolReportBox.Value

稍后在程序中抛出错误“运行时错误'94'：无效使用Null”

除了让它成为列表框之外，还有人有其他建议吗？ 提前谢谢。

Answer 1

您需要确保在数据选项卡集中为包含数据的列设置了“绑定列”属性。例如，如果将其设置为1，它将查看RowSource并从其中列出的第一列中获取值。确保该列中包含数据。

Answer 2

检查组合框中的值 - forms!frmName!ToolReportBox.column(0)（然后增加到1,2,3，但组合框中有很多列） - 这是为了防止您看到的实际上不是值被退回。

这通常发生在组合框属性中的ListWidth为零时