安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access命令DoCmd.Quit使用经验之一(运行时错误 ‘2046’: 命令或操作”Quit“当前不可用)

2017-07-29 12:50:00
zstmtony
原创
2474

在Access主界面窗体的卸载事件里(Unlod),通常我们会加上以下VBA代码,以便提醒用户是否真的想退出整个系?#24120;?#35753;用户有一个确认的过程:


Private Sub Form_Unload(cancel As Integer)
  
  If gf_MsgBox("您确定要退出整个管理系统吗?", vbYesNo + vbDefaultButton2) = vbYes Then
  
      DoCmd.Quit acQuitSaveNone
  
  Else
     Cancel=True   '取消退出
  End If

End Sub
如果我们正常手工关闭这个主界面,或关闭整 个Access数据库时,这个提示都会正常的


但昨天尝试在Access2007 中, 选择窗体 选卡 右键 “全部关闭”  或关闭 主界面,关闭时却提示以下错误

 提示以下错误:

  运行时错误 ‘2046’:
  命令或操作”Quit“当前不可用。
 
 进行代码调试,代码停在这句上面 

  DoCmd.Quit acQuitSaveNone


   原来在这个场景下,这个命令不能使用


   后来 在这句前面加一个忽?#36816;?#26377;错误的代码

     On Error Resume Next
     DoCmd.Quit acQuitSaveNone


   解决这个问题。

   另在软件主界面再加上一个退出按钮,让用户主动关闭整个软件。

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.2
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    舍伍德的罗宾电子游戏 天龙八部手游武当指点 伊斯法罕波斯波利斯 黄金时代之全球进化 假面战队五骑士百度云 塞维利亚vs维戈塞尔塔推荐 烈焰钻石客服 北京赛车pk10计划 36选7开奖11057 斗破苍穹续集