Question

我正在为5人建立一个小型数据库。我不是Access中的大师，但我可以找到自己的方式。我只需要帮助我创建我创建的登录表单，只为每个用户打开单独的表单。下面是我到目前为止的代码。任何帮助表示赞赏

Private Sub txtPassword_AfterUpdate()

'Check that User is selected
If IsNull(Me.CboUserID) Then
    MsgBox "You need to select a user!", vbCritical
    Me.CboUserID.SetFocus
Else

        DoCmd.OpenForm "[UserID]" = "CboUserID '"
        Me.Visible = False

        MsgBox "Password does not match, please re-enter!", vbOKOnly Or vbExclamation
        Me.txtPassword = Null
        Me.txtPassword.SetFocus
    End If

End Sub

Answer 1

表单的名称是用户名＆amp;形式，所以：

DoCmd.OpenForm Me.CboUserID & "Form"

我认为使用多种形式是不明智的 - 可以过滤和调整表格，以便只需要一种形式。

将特定用户指向Access 2010中的特定表单

1 个答案: