Question

tjmgs老师，很喜欢你的热心回答！想向你请教一个access文本框value属性问题！

我在access的一个窗体的主体中一共设置了两个控件，一个事文本框（Text0），一个是命令按钮（测试按钮）。
现在把命令按钮的打击事件写成这样：

Private Sub 测试按钮_Click()If Text0.Value = Null ThenMsgBox "1、内容为空！"End IfIf Text0.Value = "" ThenMsgBox "2、内容为空！"End IfEnd Sub我在文本框中什么也没输入，点击了测试按钮没有反应！求指教一下！
难道一开始Text0.value的值不为空吗？

Answer 1

Access文本框如果没有设定任何默认值其初始值就是Nul l值。
Text0.Value=Null 可用于向文本框赋予Null值，但是它不能用于判断是否为Null。故此，尽管文本框中的值是Null，您的代码却无反应。
判断一个值是否为Null应使用IsNull函数。您代码中的第一个If...Then语句改为If IsNull(Text0) Then 代码就会有反应了，但是在首次单击按钮时会弹出消息框提示文本框的值是Null外，后面再单击按钮（假设没有手动输入或删除任何字符）会一直提示文本框的值是0长度字符串，因为文本框的值已被设置成空字符串而且不再变动。
建议代码修改如下，提示消息会在Null和空字符串之间不断转换
Private Sub Command1_Click()
If IsNull(Text0) Then
    MsgBox "文本框中的值是Null"
    Text0.Value=""
End If
If  Text0.Value="" Then
    MsgBox "文本框中的值是空字符串"
    Text0.Value=Null
End If
End Sub

实验一下各种效果吧