我又出了一道有点难度代码题(我无法解决),看谁的招数高明,请高手亮相!!!

taimiao

msgbox代码问题,请见附件(大小仅10k)文件下载

huliuzheng

If (IsNull(Forms!窗体1!文本0)) Then
        Beep
        MsgBox "1", vbOKOnly, ""
    End If

eio

这容易解决，
（1）先设置文本框焦点
（2）将代码改写即可。If [文本0]="" Then.....

[此贴子已经被作者于2002-8-21 23:12:10编辑过]

huliuzheng

Private Sub 命令2_Click()
If (IsNull(Forms!窗体1!文本0)) Then
MsgBox "请别忘了输入日期", vbOKOnly, "警告窗口"
End If
End Sub