109
ห้อง MS Access / > สอบถามการกำหนดสิทธิ ในการกดปุ่ม command Button หรือสิทธิในการเข้าถึงฟอร์ม
« เมื่อ: 27 ม.ค. 61 , 13:56:43 »
Private Sub login_Click()
Dim fpass As String
Dim flevel As String
fpass = DlookUp("[Password]","UserLogin","[UserName]='" & Me.UserBox & "'")
If fpass = Me.PassBox Then
flevel = DlookUp("[Level]","UserLogin","[UserName]='" & Me.UserBox & "'")
SetUserLevel flevel
DoCmd.OpenForm "Main Form", acNormal
Else
MsgBox "ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"
Me.Undo
Me.UserBox.SetFocus
End If
End Sub
Dim fpass As String
Dim flevel As String
fpass = DlookUp("[Password]","UserLogin","[UserName]='" & Me.UserBox & "'")
If fpass = Me.PassBox Then
flevel = DlookUp("[Level]","UserLogin","[UserName]='" & Me.UserBox & "'")
SetUserLevel flevel
DoCmd.OpenForm "Main Form", acNormal
Else
MsgBox "ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"
Me.Undo
Me.UserBox.SetFocus
End If
End Sub