根据用户权限来打开窗体（查询）

云朵　发表于：2009-04-16 20:01:56 　

我做了一个界面，并且设了权限，用户需要有权限才能点击打开，但是我设的代码有问题：

Private Sub Image11_Click()

    If Nz(DLookup("[选择]", "权限管理", "[用户名]=" & "'" & Forms!用户登陆!Combo用户名 & "' and [模块ID]='11' ")) = -1 Then
    'docmd.OpenForm "窗体11"
    MsgBox "你可以打开!"
    Else
    MsgBox "权限受限！"
    End If
End Sub

但是我点击后，窗体并没有打开，只是弹出“可以打开”，点击“确定”后，就没有反应了。请问，有谁能帮我看看，问题出在哪？代码应该怎样写。谢谢！

Top

豆豆发表于：2009-04-16 20:11:01

'docmd.OpenForm "窗体11"
这一句被注释掉了。

Top

云朵发表于：2009-04-17 22:06:54

那么应该怎样写呢？谢谢！

Top

黎红军发表于：2009-04-19 00:30:59

'docmd.OpenForm "窗体11"

这一句被注释掉了。

应当把前面的分号去掉。即;