Private Function CX2()
If IsNull([Text0]) Then
MsgBox "请确定 'Text0' 的值!", vbInformation, "系统提示"
Exit Function
End If
End Function
当[Text0]为空时,如何让CX1也停止运行!?Exit Function只能终止CX2
加个开关就可以。
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