การกำหนดสิทธการเข้าใช้

[dew.bizkit]

ถ้าผมต้องการให้ User เข้าได้เฉพาะระบบรับจดหมาย,พัสดุ และแจ้งซ่อมอุปกรณ์ โดยที่admin สามารถเข้าได้ทั้งหมดครับต้องเขียนโค้ตว่ายังไงครับ

[dew.bizkit]

อันนี้เป็น VBA ในปุ่ม login ครับ

Code: Select all

Private Sub bt_login_Click()
Dim UserLevel As String
Dim Fname As String

    If IsNull(Me.txtuser) Then
        MsgBox "Plaease enter User Name", vbInformation, "Login ID Required"
        Me.txtuser.SetFocus
    ElseIf IsNull(Me.txtpass) Then
        MsgBox "Plaease enter Password", vbInformation, "Password Required"
        Me.txtpass.SetFocus
    Else
        If (IsNull(DLookup("Em_User", "Employee", "Em_User = '" & Me.txtuser.Value & "' And Em_pass = '" & Me.txtpass.Value & "'"))) Then
            MsgBox "UserName & Password Incurect"
  
        Else
            UserLevel = DLookup("Em_level", "Employee", "Em_User = '" & Me.txtuser.Value & "'")
            Fname = DLookup("Em_Fname", "Employee", "Em_User = '" & Me.txtuser.Value & "'")
                     DoCmd.Close
                If UserLevel = "admin" Then
                    DoCmd.OpenForm "Home"
                    Forms![Home]![showuser] = Fname
                    Forms![Home]![showlv] = UserLevel
             
                    Forms!Home.AllowDeletions = False 
                    Forms!Home.AllowEdits = False 
                Else
                    DoCmd.OpenForm "Home" 
                    DoCmd.OpenForm "Home"
                If UserLevel = "User" Then
                    DoCmd.OpenForm "Home"
                    Forms![Home]![showuser] = Fname
                    Forms![Home]![showlv] = UserLevel
                    End If
             
                End If
                End If
        End If

[snasui]

ลองใช้การ Enable, Disable Button

ตัวอย่างครับ http://stackoverflow.com/questions/1184 ... other-form