请教个弱智的问题！

sxgaobo

Private Sub CX1()
CX2
…
…
…
End Sub

Private Function CX2()
If IsNull([Text0]) Then
   MsgBox "请确定 'Text0' 的值！", vbInformation, "系统提示"
   Exit Function
End If
End Function
当[Text0]为空时，如何让CX1也停止运行！？Exit Function只能终止CX2

accben

加个开关就可以。
Private Function CX2() As Boolean
'初始化
CX2 = False
If IsNull(Me.Text0) = True Then
    CX2 = False
    MsgBox "请确定【Text0】的值！", vbOKOnly, "系统提示"
    Exit Function
Else
    CX2 = True
End If
End Function

Private Sub Command0_Click()
If CX2 = False Then
    '如果 CX2返回False，不能让其继续往下执行，可以给用户提示后，退出当前事件过程。
    MsgBox "函数出错了。", vbOKOnly, "系统提示"
    Exit Sub
Else
    '这里可以继续你要的事件
    '......
    '......
    '......
End If
End Sub

smilingkiss

领教了！

xxk8077

学习学习

sxgaobo

roych 发表于 2023-3-7 18:19
详见：http://www.office-cn.net/thread-126815-1-1.html

看见了，谢谢！待我消化消化

roych

详见：http://www.office-cn.net/thread-126815-1-1.html

sxgaobo

roych 发表于 2023-3-6 23:45
大致应该是这样。
Private Sub CX1()
CX2()

非常谢谢您的答复！
是我没表达清楚，我再描述下：
    一个窗体中有多个按钮，每个按钮执行的程序不一样，但执行前都需要判断下几个文本框是不是给了值。我不想每个按钮后都写一堆判断语句，所以写了个共用的判断块，但现在的问题是，判断为空后判断块停止运行了，可按钮后面的程序继续运行结果导致报错！
    我想做的是，判断块提示错误停止运行后也终止按钮程序的运行！
    不知道我描述的是不是清楚

roych

大致应该是这样。
Private Sub CX1()
CX2()
If IsNull([Text0]) Then
exit sub
end if
End Sub
当然，最好的写法是把2个都合起来,CX2()去掉条件判断。

Private Sub CX1()
If not IsNull([Text0]) Then
CX2
else
exit sub
end if
…
…
…

End Sub