如何关闭窗体回到平台主界面[平台技巧]

admin

在平台中，为了保证平台自动创建的窗体或你自己手工创建的窗体能够在弹出方式或子窗体两种方式都能正常关闭。

如果你直接使用  
   Docmd.Close
   或 DoCmd.Close acForm, me.name     或 使用相关的宏 关闭窗体 或 CloseWindow 宏
   在子窗体打开方式会导致 系统 提示你是否退出整个数据库


所以请使用如下的代码 （感谢 网友 “拖祖国后腿” 的提醒）

1）如果用的是平台创建的窗体
     在关闭按钮加上这句代码 （请不要使用宏来创建关闭功能）

1. On Error GoTo Err_Exit                              '处理关闭事件
   
2.     gf_SetMainSfm False, , Me.Parent.Form         '返回主界面
   
3.     Exit Sub
   
4. Err_Exit:
   
5.     DoCmd.Close acForm,mstrFormName                '出错则直接关闭
   

复制代码

2）如果用的是你自己手工创建的窗体
     在关闭按钮加上这句代码 （请不要使用宏来创建关闭功能）

1. On Error GoTo Err_Exit                              '处理关闭事件
   
2.     gf_SetMainSfm False, , Me.Parent.Form         '返回主界面
   
3.     Exit Sub
   
4. Err_Exit:
   
5.     DoCmd.Close acForm, me.name           '出错则直接关闭
   
6.                

复制代码

老虎是我的

感谢 老师的 细心指导 ,帮助我解决了问题.送32个赞......

access学习交流

学习