如何用VBA将非当前窗体设为只读？

CH　发表于：2010-05-16 21:12:43 　

各位老师，请问如何用VBA将非当前窗体设为只读？谢谢！！！

煮江品茶发表于：2010-05-16 21:32:00

以下代码未经测试，不知是否能达到你的需求，请试用：

Sub frmLocked()
Dim frm As Form
For Each frm In Forms
    If frm.Name = Screen.ActiveForm.Name Then
        frm.AllowAdditions = True
        frm.AllowDeletions = True
        frm.AllowEdits = True
    Else
        frm.AllowAdditions = False
        frm.AllowDeletions = False
        frm.AllowEdits = False
    End If
Next frm
End Sub

Top

CH 发表于：2010-05-17 22:18:47

我试了下，好像还不行。thanks anyway!

我想达到这样的效果：当用户名和密码对的时候，打开的窗体可以编辑，否则打开的窗体为只读（这一点好实现）。在打开的只读窗体中有个命令按钮，单击命令按钮打开的新窗体也必须是只读的（这一点不知道如何实现）。

Top

煮江品茶发表于：2010-05-18 15:11:03

思维好像有点乱，呵呵。

1、用户名和密码不对，怎么能打开窗体，进入系统呢？

2、打开窗体有个按钮，总是要点击的，一旦点击就成为当前窗体了，这和当前窗体不锁定岂不矛盾了？

推荐你看看《权限麻雀》一文，不知道是否对你的问题有帮助。

Top

CH 发表于：2010-05-19 11:59:19

呵呵，不需要用户名和密码可以进入系统，不过进入系统没有编辑的权限，所有的窗体都是只读的。只有当用户名和密码对的时候，进入系统才有编辑的权限。

谢谢你的实例，很受用。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

如何用VBA将非当前窗体设为只读？