Office中国论坛/Access中国论坛

标题: 如何用代码实现引用所有窗体？ [打印本页]

作者: franky_xhl 时间: 2006-5-6 22:32
标题: 如何用代码实现引用所有窗体？
问题：如何用代码实现引用所有窗体？

问题描述：我自己制作了一个登录界面，想对于非管理员的用户，让其仅有只读操作的权限。当他们登录时，我想把所有的窗体的允许编辑、允许删除、允许添加属性设置成false。现在的问题是，窗体比较多，一个一个按名字更该比较麻烦。在《专家门诊－Access开发答疑200问》P175页中有个引用所有类库和控件的例子，不知道有没有类似的方法可以实现我的要求．

比如可以这样：　For I=1 to 窗体.count

                              窗体.allowEdits=false

                              窗体.allowaddition=false

                              窗体.allowdeletion=false

                        next I

或者有其他能解决的办法。先谢谢楼下的兄弟和一点通版主！！

作者: andymark 时间: 2006-5-6 23:06
allowEdits,allowaddition,allowdeletion属性必须是窗体打开了才能引用

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

For Each obj In dbs.AllForms
      If obj.IsLoaded = True Then
      Forms(obj.Name).AllowEdits = False
      Forms(obj.Name).AllowAdditions = False
      Forms(obj.Name).AllowDeletions = False
   End If
Next obj

作者: franky_xhl 时间: 2006-5-6 23:41
谢谢　andymark 也就是说我应该在每次窗体打开的时候call下这句话吧

作者: andymark 时间: 2006-5-6 23:54
只能这样

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)