如何用代码实现引用所有窗体？

franky_xhl

问题：如何用代码实现引用所有窗体？

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

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

                                 窗体.allowEdits=false

                                  窗体.allowaddition=false

                                 窗体.allowdeletion=false

                          next I

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

andymark

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

谢谢　andymark 也就是说我应该在每次窗体打开的时候call下这句话吧

andymark

只能这样