Office中国论坛/Access中国论坛

标题: 请教权限模块 [打印本页]

作者: 小铁匠 时间: 2004-8-30 17:30
标题: 请教权限模块
我在库中建立了[用户],[窗体]，[用户权限］三个表与一个[用户权限查询]查询，然后我设想是这样的根据打开窗体的“窗体名”来检测权限，但我这样编写不能运行，以下的代码请高手指教，

                                                                     　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Function 权限检测(窗体名 As String) As Boolean

窗体名 = DLookup("权限", "用户权限查询", "名称='" & 窗体名 & "' and [用户]=" user)

If IsNull(窗体名) Or Not 窗体名 Then

权限检测 = False

If Len(user) Then

      MsgBox str_用户名 & "：" + vbCr + vbCr + "对不起，你没有权限使用此功能!", vbOKOnly + vbExclamation, "管理系统"

Else

      MsgBox "请登录后再使用此功能!", vbOKOnly + vbExclamation, "管理系统"

End If

DoCmd.Close acForm, 窗体名

Else

权限检测 = True

End If

End Function

[此贴子已经被作者于2004-8-30 13:57:19编辑过]

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