请教权限模块

小铁匠

我在库中建立了[用户],[窗体]，[用户权限］三个表与一个[用户权限查询]查询，然后我设想是这样的根据打开窗体的“窗体名”来检测权限，但我这样编写不能运行，以下的代码请高手指教，

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