无法确定文本框是否为空

Question

这应该很简单，我已经完成了半小时的论坛阅读，但由于某种原因我遗漏了一些东西。我想使用 VBA 来查看文本框是否为空。我使用 Me.TxtBox.Value = Nothing.

确保文本框为空

到目前为止，这是我尝试过的方法和我收到的错误消息：

IsNull(Me.TxtBox.Value) 返回：False

IsNull(Me.TxtBox) 返回：False

Len(Me.TxtBox.Value & vbNullString) 返回：Run-time error '91': Object variable or With block variable not set

整个表格是无界的，但我认为这无关紧要。

Answer 1

使文本框为空：

Me.TxtBox = Null

判断文本框是否为空：

IsNull(Me.TxtBox)

Answer 2

您将需要测试该框是真正为空 (null) 还是仅包含零长度字符串：-

if len(trim(me.txtbox.value & vbnullstring)) = 0 then 
' it's empty
else
' it's not empty
end if

您也可以使用 "" 代替 vbnullstring。

Answer 3

我找到了问题的根源。问题是由设置 Me.TxtBox.Value = Nothing 引起的。当我想清除值时，如果我使用Me.TxtBox.Value = vbNullString，那么我可以检查长度是否为零。

谢谢大家的帮助。我想以后我会Me.TxtBox = Null。这似乎是最简单的解决方案。

Cannot determine if text box is empty