设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1724|回复: 7
打印 上一主题 下一主题

[窗体] 请教个弱智的问题!

[复制链接]
跳转到指定楼层
1#
发表于 2023-3-6 18:40:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2023-3-6 23:45:55 | 只看该作者
大致应该是这样。
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
3#
 楼主| 发表于 2023-3-7 08:09:35 | 只看该作者
本帖最后由 sxgaobo 于 2023-3-7 08:22 编辑
roych 发表于 2023-3-6 23:45
大致应该是这样。
Private Sub CX1()
CX2()

非常谢谢您的答复!
是我没表达清楚,我再描述下:
    一个窗体中有多个按钮,每个按钮执行的程序不一样,但执行前都需要判断下几个文本框是不是给了值。我不想每个按钮后都写一堆判断语句,所以写了个共用的判断块,但现在的问题是,判断为空后判断块停止运行了,可按钮后面的程序继续运行结果导致报错!
    我想做的是,判断块提示错误停止运行后也终止按钮程序的运行!
    不知道我描述的是不是清楚
4#
发表于 2023-3-7 18:19:34 | 只看该作者
5#
 楼主| 发表于 2023-3-7 22:15:45 | 只看该作者
roych 发表于 2023-3-7 18:19
详见:http://www.office-cn.net/thread-126815-1-1.html

看见了,谢谢!待我消化消化
6#
发表于 2023-3-8 18:14:28 来自手机 | 只看该作者
学习学习
回复

使用道具 举报

7#
发表于 2023-4-19 10:58:02 | 只看该作者
领教了!
回复

使用道具 举报

8#
发表于 2023-4-27 16:39:24 | 只看该作者
本帖最后由 accben 于 2023-4-27 16:41 编辑

加个开关就可以。
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



您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-25 08:43 , Processed in 0.142335 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表