[已解决]用户管理

zyz218

file:///D:/000.jpg
我想这样管理窗口打开权限，用的工作组文件管理用名的。

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

zyz218

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

谢谢指点！！cancel=TRUE 经你指点我才注意到它的用处！！呵呵

pengkuo

高手就是高手！！不错的案例哦1

hupingrenjia

好帖，看了就要顶。