设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[窗体] [em06][em06][求助]取消窗体关闭的代码如何写?

[复制链接]
跳转到指定楼层
1#
发表于 2004-8-28 21:16:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
      有一窗体,名:APEX,要求在关闭该窗口时检测字段单号是否为空,如果为空则窗口不关闭,提示"你必须输入单号!",然后将焦点定位于单号字段。

      检测部分已完成,现求助取消关闭窗口的代码。





Private Sub Form_Close()

    If IsNull(单号) Then

    MsgBox "你必须输入单号!", vbExclamation

    单号.SetFocus

    End If

End Sub

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

4#
发表于 2023-1-20 11:02:34 | 只看该作者
学习
回复

使用道具 举报

3#
发表于 2004-8-29 02:49:00 | 只看该作者
把代碼加在unload事件中,而不是加在close事件中.在程序中再加上樓上的代碼
2#
发表于 2004-8-28 23:09:00 | 只看该作者
试试CANCEL=TRUE
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-29 04:32 , Processed in 0.113012 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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