如何设置不同用户登陆后打开不同的窗体

longdoupj

好,我是新手,请教做了登陆窗体后.如何设置不同用户登陆后打开不同的窗体

用户密码表
用户ID用户名密码权限1A1查询窗体8B1在线窗体

Private Sub Cmd确定_Click()
Dim RecCount, RecNo, RecRate
On Error GoTo Err_Cmd确定_Click
If StringEnDeCodecn([Txt密码], 75) = DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'") _
    And Me.Combo用户名 <> "" Then
   
    Me.Visible = False
        
    Dim stDocName As String
    Dim stLinkCriteria As String
   
    If Forms![用户登陆]![Combo用户名] = DLookup("[用户名]", "用户密码表", "[权限] = '窗体'") Then
        stDocName = "窗体"
    Else
        stDocName = "窗体"
     
         
    End If

kelind

这样行不?

longdoupj

谢谢~这样是登陆打开一个窗体~能不能设置一个权限组只能打开几个窗体,另外几个不能打开?

txwsyxhj

有高手说在安全-用户与组权限中设置，可惜我是新新手，只能提供这些

hjjxzj

新手学习

yuesong322

共同学习中。。。

xie62

共同学习中

dbbygzy

xuexi

hupingrenjia

顶一下。

meimei30

你可以用按钮把要打开的窗体做在不同的窗体中呀！