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

时　间:2016-10-04 08:23:59
作　者:缪炜   ID：24010  城市：江阴
摘　要:Access 2007/2010 VBA基于Windows认证的用户管理
正　文:

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