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

tmtming

请教在按钮事件中要判断两个权限（管理员和开单员），只要满足其中一个就可以通过的代码怎样写？

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

kelind

if forms![窗体]![权限]="管理员" or forms![窗体]![权限]="开单员" then

tmtming

多谢

tmtming

我试了，象以下这样写还是不行，如果这样写恰恰相反，管理员和开单员都不能通过，其他的却可以通过。

If Forms![登陆窗体]![权限] = "管理员" Or Forms![登陆窗体]![权限] = "开单员" Then

这是我做的附件，请各位帮忙看看。

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编辑过]