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

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

wpbooklist word拼音不对齐国家基药目录公布国家基药685新目录女生软件测试 mac上看ppt的软件是什么格式的淘客微信推广软件华硕笔记本电脑装正版win7系统后必须装手机定位gprs软件手机定位找人是真的吗一元夺宝怎么开店 word无法复制到excel 怎么让word页眉不一样 word的页眉怎么设置每页不一样极点五笔手机输入法

专题更多>>

最新文章更多>>

亖呉?盀

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