Question

我有三个表格 -

受访者（我们的受访者列表）
tblUser （有关员工及其在数据库中的角色的详细信息 - 管理员或用户）
tblSecurityLevel （这是这些角色的链接）

另外，我创建了两个表单：

UserLogin - 当用户输入用户名和密码时有效
导航至受访者（仅供查看）

我的主要问题是我不知道要写什么代码以确保具有“用户”角色的员工只能查看响应者数据库，具有“管理员”角色的用户可以编辑所有内容。

我不是一位经验丰富的访问数据库开发人员btw，请帮助：D

这是我提交按钮的代码btw

Private Sub Command1_Click()
    Dim UserSecurity As String
    If IsNull(Me.txtLoginID) Then
        MsgBox "Please enter LoginID", vbInformation, "LoginID Required"
        Me.txtLoginID.SetFocus
    ElseIf IsNull(Me.txtPassword) Then
        MsgBox "Please enter Password", vbInformation, "Password Required"
        Me.txtPassword.SetFocus
    ElseIf (IsNull(DLookup("[UserLogin]", "tblUser", "[Userlogin] ='" & Me.txtLoginID.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Incorrect"
    Else
        MsgBox "Login correct"
    End If
    DoCmd.Close

访问 - 根据员工角色查看不同的表

0 个答案: