一个弱弱的问题

sam_yuan

我做了一个表(密码)，一个用户登陆窗体，主窗体1、主窗体2、主窗体3
Private Sub Cmd确定_Click()
On Error GoTo Err_Cmd确定_Click
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
    And Me.Combo用户名 <> "" Then                           '验证用户和密码)
    DoCmd.Close
    DoCmd.Close acForm, "登陆背景", acSaveYes
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(20027) & ChrW(25511) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria  
Else
MsgBox "用户名和密码错误", , "请重新输入"
   Me.Combo用户名.SetFocus
End If
Exit_Cmd确定_Click:
    Exit Sub
Err_Cmd确定_Click:
    MsgBox Err.Description
    Resume Exit_Cmd确定_Click  
End Sub
问题：如何使不同的人进入不同的主窗体？

宿命的风

对“用户”和“主窗体“名编号
例如：
“主窗体1”对应客户编号为 ”1“的用户

sam_yuan

如何对应,请具体点,谢谢

CJB_2001

其实,可以参考ACCESS主菜单的显示方式,规划窗体,建立人员与窗体的对应关系.

yrg

我觉得可以在“用户密码表”中增加一字如：权限，把用户打开的相应窗体名称输入到权限字段中，在登陆窗体中，用Dlookup函数或其它方法获取当前登陆用户的相应权限（窗体名称）后用 DoCmd.OpenForm stDocName

sam_yuan

有做好的程序可以看一下吗?