请教个弱智的问题！

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

sxgaobo

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

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

sxgaobo

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

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