Access 2007/2010 VBA基于Windows认证的用户管理

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Private Sub Form_Load()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select UserRole,FirstName,LastName From tblUser Where UserDomain='" & Environ("USERDOMAIN") & "" & Environ("USERNAME") & "'",2)
If Not rs.EOF Then
    'rs.MoveNext
    If Val(rs("UserRole")) = 4 Then
        UserMaintainmancePage.Visible = False
    End If
    lbl.Caption = Replace(lbl.Caption,"!",rs("FirstName") & " " & rs("LastName") & "!")
    Data_Source_Table.Visible = False
    Tech_Alerts_Table.Visible = False
    tblUser_View.SourceObject = "Query.tblUser View"
Else
    MsgBox "You cannot access the system,please find your Boss."
    Application.Quit
End If
Set rs = Nothing
End Sub

Private Sub UserFind()
tblUser_View.Visible = True
FindUserTxt.SetFocus
FindUserTxt.Tag = FindUserTxt.Text
FindFirstNameTxt.SetFocus
FindFirstNameTxt.Tag = FindFirstNameTxt.Text
FindLastNameTxt.SetFocus
FindLastNameTxt.Tag = FindLastNameTxt.Text
tblUser_View.Requery
End Sub

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!