Office中国论坛/Access中国论坛

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

作者: tmtming 时间: 2006-11-16 01:55
标题: [求助]请教按钮事件判断权限代码（问题还未解决，请各位指教）
请教在按钮事件中要判断两个权限（管理员和开单员），只要满足其中一个就可以通过的代码怎样写？

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

作者: kelind 时间: 2006-11-16 04:00
if forms![窗体]![权限]="管理员" or forms![窗体]![权限]="开单员" then

作者: tmtming 时间: 2006-11-16 05:54
多谢

作者: tmtming 时间: 2006-11-18 20:04
我试了，象以下这样写还是不行，如果这样写恰恰相反，管理员和开单员都不能通过，其他的却可以通过。

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

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

[attach]21582[/attach]

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

'登录时将登录权限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编辑过]

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