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

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

longdoupj

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