VBA判断ACCESS中的窗体是否存在(并且关闭和删除窗体)
来源:互联网 发布:数据字典中的数据项 编辑:程序博客网 时间:2024/06/08 06:56
判断窗体中是否有子窗体的模块代码
来源:www.accessoft.com 点击数:2744 评论数:3 评论 | 收藏 | 复制
时 间:2012-01-11 09:35:48
作 者:叶海峰 ID:31 城市:广州
摘 要:判断窗体中是否有子窗体的模块代码
正 文:
Sub FrmHasChildForm() Dim ctrl As Control Dim frm As Object Dim flag As Boolean For Each frm In CurrentProject.AllForms flag = False DoCmd.OpenForm frm.Name, acNormal, , , , acHidden For Each ctrl In Forms(frm.Name).Controls If ctrl.ControlType = 112 Then flag = True Debug.Print frm.Name, ctrl.Name Exit For End If Next MsgBox IIf(flag = True, frm.Name & "包含子窗体", frm.Name & "不包含子窗体") DoCmd.Close acForm, frm.Name NextEnd Sub
下面是我改善的代码
Public Function CREATE_REPORT() Dim Frm As Form Dim FRMCHECK As Object For Each FRMCHECK In CurrentProject.AllForms If FRMCHECK.Name = "F_新建的窗体" Then MsgBox "FROM F_新建的窗体 IS EXISTS" DoCmd.DeleteObject acForm, "F_新建的窗体" End If Next Set Frm = CreateForm DoCmd.Save , "F_新建的窗体" DoCmd.Close acForm, "F_新建的窗体" RefreshDatabaseWindowEnd Function
阅读全文
0 0
- VBA判断ACCESS中的窗体是否存在(并且关闭和删除窗体)
- 判断窗体是否关闭
- VC中判断窗体是否存在
- C#中判断子窗体是否存在
- 判断MDI窗体的子窗体是否存在
- 判断窗体是否存在,如果存在就激活
- 判断窗体是否存在,如果存在就激活
- 【C#】简单窗体程序,判断是否闰年,禁止窗体调整大小,关闭窗体前的判断
- 判断窗体存在
- 判断窗体是否打开
- 窗体传值中的显示和关闭窗体
- 检测子窗体是否存在
- 在有父窗体的前提下,判断子窗体是否存在,否则show出
- 【VBA研究】如何防止用户关闭窗体
- Access中连续窗体中的子窗体
- 设置窗体的起始位置,并检查配置文件是否存在,存在使用配置文件,不存在创建配置文件,在每次打开窗体时保持窗体上一次关闭的位置。
- 关于判断MDI窗体是否存在,存在则显示,不存在则创建
- 判断鼠标是否在窗体
- 阿里云oss上传文件,每次只能上传很小一部分
- python3 pygame学习(2):使用pygame加载音乐
- 关于numpy mean函数的axis参数
- Unity5.6.x 声音导入设置
- 2017第72届中国教育装备展示会会刊(参展商名录)
- VBA判断ACCESS中的窗体是否存在(并且关闭和删除窗体)
- Linux 安装中文 man 手册
- Aapt2异常
- (Android UI)colorAccent,colorPrimary,colorPrimaryDark
- linux中批量添加用户
- 《传智播客全方位打造“1024程序员节”,致敬百万程序员》
- 深刻理解android的Fragment生命周期,到底在干嘛。
- [几何 区间DP] Codeforces 438C & 437E. The Child and Polygon
- 不常用LSA