Office中国论坛/Access中国论坛

标题: [已解决]用户管理 [打印本页]

作者: zyz218 时间: 2007-11-10 11:57
标题: [已解决]用户管理
file:///D:/000.jpg
我想这样管理窗口打开权限，用的工作组文件管理用名的。

[ 本帖最后由 zyz218 于 2007-11-10 16:39 编辑 ]

作者: zyz218 时间: 2007-11-10 16:37
Private Sub Form_Open(Cancel As Integer)
Forms!pay.Visible = False
If Not IsNull(DLookup("frmname", "power", "frmname='" & Me.Name & "' and users like '*" & CurrentUser & "*'")) Then
      Exit Sub
Else
      MsgBox "您无权进入，如有疑问请找管理员!", vbCritical, "无权进入"
      DoCmd.Close acForm, Me.Name, acSaveNo
      Forms!pay.Visible = True
End If
End Sub

这样问题解决

作者: zyz218 时间: 2007-11-10 18:34
谢谢指点！！cancel=TRUE 经你指点我才注意到它的用处！！呵呵

作者: pengkuo 时间: 2007-11-13 01:36
高手就是高手！！不错的案例哦1

作者: hupingrenjia 时间: 2010-5-26 08:55
好帖，看了就要顶。

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