审核模块写法求教...

幽助　发表于：2010-08-08 15:10:23 　

Public Function Hagata() As Boolean
Dim strsql As String
strsql = "SELECT * FROM 刀模MASTER WHERE (((刀模MASTER.审核人) Is Null));"
If IsNull(strsql) Then
MsgBox "没有审核数据", 64, "提示"
Else
DoCmd.OpenForm "刀模审核"
End If
End Function

在没有审核数据时,不期望打开窗体"刀模审核"...MSGBOX后面要加停止执行的代码是怎么样的???

是EXIT SUB??

帮忙!

Top

煮江品茶发表于：2010-08-08 20:11:40

Public Function Hagata()

If Dcount("*","刀模MASTER ","审核人 is null")=0 Then
MsgBox "没有审核数据", 64, "提示"
Else
DoCmd.OpenForm "刀模审核"
End If
End Function

Top

幽助发表于：2010-08-09 09:48:25

判断错了啊....呵呵。..谢谢!

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

审核模块写法求教...