窗体是能调用了,但它只终止了模块上的Exit Sub,而不是终止窗体上的事件
而我要的是符合模块上的条件,窗体上的按钮就不往下执行了呀
Private Sub 窗体上的按钮_Click()
Call Test
(在这儿我的要求是达到模块上的条件不往下执行,可是你这样还是往下执行了)
略......
End Sub
如果在公用模块的条件语句中，代码较多的情况下，而又会在很多过程中使用之，可用自定义公用函数作如下变通：（因我不知在调用自定义函数时能否将SUB过程名作为参数传递，只好如此啦。）
在模块中建以下自定义函数：
Option Compare Database
Function es() As Boolean
If tj < 5 Then
'以下是其他可能有的较多代码：
'--------------
'-------------
'------------
'以上是其他可能有的较多代码：
es = False
Else
'以下是其他可能有的较多代码：
'--------------
'-------------
'------------
'以上是其他可能有的较多代码：
es = True
End If
End Function
在窗体Sub过程中如下编写：
Private Sub 窗体上的按钮_Click()
If es() = False Then
Exit Sub
Else
End If
'以下是不终止过程时要执行的语句
'------------
'-------------
'-----------
End Sub
Public Sub Test() as Boolean
If 自定 = 1 Then
MsgBox "不符合条件"
Test=false
exit function
Else
test=true
End If
End Sub
窗体中调用:
Private Sub 窗体上的按钮_Click()
if Test=false then
exit sub
end if
End Sub
我明白了,学了不少,就我这个例子而言,实际上窗体上代码并不可能再简化了,
在窗体上不直接用
If 自定 = 1 Then
MsgBox "不符合条件"
Exit Sub
Else
End If
而是通过模块
在窗体上引用
if Test=false then
exit sub
end if
可能更可读些
总记录：7篇 页次：1/1 9 1 :
