vba - 显示/隐藏不同用户的不同控件 MS Access 表单

Question

我在 MS Access 中设计了一个登录表单。我有不同的用户角色，并且希望在不同的用户登录时显示不同的控件。例如，如果管理员登录，则控件应该不同，普通用户应该能够使用不同的控件。

我为点击登录按钮编写的 vba 代码如下(此代码用于 Login_Form):

Private Sub Btn_SignIn_Click()

IF Me.Txt_UserID.Value = "admin" AND Me.Txt_Password = "123admin"  
                                 AND Me.Cmbo_UserRole.Value = "DBA"  
THEN

    MsgBox "Welcome to RMS", vbOKOnly, "Logged in as Admin!"

    DoCmd.OpenForm "Main_Form"
    --How can I show/hide controls here at Main_Form
End If  

Main_Form 有不同的控件，但我无法 Access Btn_SignIn_Click() 函数内的 Main_Form 控件。这样，我也许能够显示或隐藏控件。

Answer 1

with forms("main_form")
   !control1.visible = true
   !control2.visible = true
end with

如果这样的控件很多，也可以使用

for each ctl in form_main_form
   ctl.visible = true
next ctl