当文本框出现空值时，如何让它发出提示，不能进行下一步操作？

ccczzz

当文本框出现空值时（即该文本框不能为空），如何让它发出提示，不能进行下一步操作？

竹笛

if isNull(文本框名)=true then
msgbox "文本框为空值"
end if

huanghai

补充:
if isNull(文本框名)=true or文本框名="" then

Y.J.Wang

“if isNull(文本框名)=true then”

这是典型错误写法！正确为：

if isNull(文本框名) then

竹笛

楼上的兄弟，您能说出我错在哪里？

实践是检验真理的唯一标准。我这个经实践使用一直很好，所以不认为是错误的。
if isNull(文本框名)=true then
msgbox "文本框为空值"
end if

[此贴子已经被竹笛于2002-11-10 15:59:32编辑过]

Y.J.Wang

if isNull(文本框名)=true then
msgbox "文本框为空值"
end if


赫赫，还上纲上线！ 以上错误何止一处？自己捉摸捉摸吧。

Y.J.Wang

忍不住还是先指出一处剩下的自己捉摸吧
IsNull 函数示例

以下示例使用 IsNull 函数判断控件是否为 Null 值。如果是，将出现一条消息提示用户输入数据；如果不是，出现一条显示控件值的消息。

Sub ControlValue(ctlText As Control)
    Dim strMsg As String

    ' 验证控件是文本框。
    If ctlText.ControlType = acTextBox Then
        ' If value of control is Null, prompt for data.
        If IsNull(ctlText.Value) Then  -----------------------------〉看到了吧！
            strMsg = "No data in the field '" & ctlText.Name _
                    & "'." & vbCrLf & "lease enter data for " _
                    & "this field now."
                If MsgBox(strMsg, vbQuestion) = vbOK Then
                    Exit Sub
                End If
        ' 如果值不是 Null，显示值。
        Else
            MsgBox (ctlText.Value)
        End If
    End If
End Sub

竹笛

楼上的也是可以的。

Private Sub txt1_LostFocus()
If IsNull(txt1) = False Then'如果txt1不为空则……
MsgBox "文本框不为空值"
End If

End Sub

Private Sub txt1_LostFocus()
If IsNull(txt1) = True Then'如果txt1为空则……
MsgBox "文本框为空值"
End If

End Sub

ccczzz

不管是：if isNull(文本框名)=true then
msgbox "文本框为空值"
end if，还是：if isNull(文本框名) then
都不能在文本框为空时，不让操作继续，即不打开[连接]窗体。
文件下载

李寻欢

文件下载