[求助]请教按钮事件判断权限代码（问题还未解决，请各位指教）

fan0217

将权限分级，然后自定义个函数来判断登录者是否有某些权限。根据该函数返回的真假来决定下一不操作是否进行。


'登录时将登录权限ID赋给全局变量intPurviewId，权限ID数字越大权限越高。
Public intPurviewId As Integer

Public Function GetPurview(Allowpurview As Integer) As Boolean
    If intPurviewId >= Allowpurview Then
       GetPurview = True
    Else
       GetPurview = False
    End If
End Function

'使用示例
Sub OpenForm()
    If GetPurview(3) Then
        DoCmd.OpenForm "frmMain"
    Else
        Exit Sub
    End If
End Sub

[此贴子已经被作者于2006-11-18 12:50:51编辑过]