MS Access VBA Login : การออกแบบระบบ Login

การออกแบบระบบ Login ใน MS Access สามารถทำได้โดยการสร้างตารางเก็บข้อมูลผู้ใช้, ออกแบบฟอร์ม Login, และเขียนโค้ด VBA เพื่อตรวจสอบสิทธิ์การเข้าถึง ดังนี้

1. สร้างตารางเก็บข้อมูลผู้ใช้ (tblUsers):

• สร้างตารางใหม่ใน MS Access และตั้งชื่อว่า “tblUsers”
• สร้างคอลัมน์ (Fields) ดังนี้:
  • UserID (Primary Key, AutoNumber): รหัสผู้ใช้ (กำหนดให้เป็น Primary Key และ AutoNumber เพื่อให้ระบบสร้างรหัสอัตโนมัติ)
  • Username (Text): ชื่อผู้ใช้
  • Password (Text): รหัสผ่าน
  • UserLevel (Number): ระดับสิทธิ์ผู้ใช้ (ถ้าต้องการกำหนดสิทธิ์การเข้าถึงส่วนต่างๆ ของระบบ)

2. ออกแบบฟอร์ม Login:

• สร้างฟอร์มใหม่ใน MS Access
• เพิ่ม Control ต่างๆ ลงในฟอร์ม:
  • Textbox สำหรับกรอก Username
  • Textbox สำหรับกรอก Password (กำหนด Input Mask เป็น Password เพื่อให้แสดงเป็น *****)
  • ปุ่ม Command Button สำหรับ Login
• ตั้งชื่อ Control ให้เหมาะสม (เช่น txtUsername, txtPassword, cmdLogin)

3. เขียนโค้ด MS Access VBA ใน Event On Click ของปุ่ม Login:

VB.Net

Private Sub cmdLogin_Click()
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblUsers WHERE Username='" & Me.txtUsername & "' AND Password='" & Me.txtPassword & "'")
    
    If rs.EOF Then
        MsgBox "ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", vbCritical, "Login Failed"
    Else
        ' เข้าสู่ระบบสำเร็จ
        MsgBox "ยินดีต้อนรับ " & rs!Username, vbInformation, "Login Successful"
        
        ' ตรวจสอบระดับสิทธิ์ผู้ใช้ (ถ้ามี)
        If rs!UserLevel = 1 Then
            ' ผู้ดูแลระบบ
            DoCmd.OpenForm "frmAdmin" ' เปิดฟอร์มสำหรับผู้ดูแลระบบ
        Else
            ' ผู้ใช้ทั่วไป
            DoCmd.OpenForm "frmUser"   ' เปิดฟอร์มสำหรับผู้ใช้ทั่วไป
        End If
        
        ' ปิดฟอร์ม Login
        DoCmd.Close acForm, Me.Name
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

ใช้โค้ดอย่างระมัดระวังcontent_copy

คำอธิบายโค้ด:

1. เปิด Recordset เพื่อค้นหาข้อมูลผู้ใช้จากตาราง tblUsers โดยใช้ Username และ Password ที่ผู้ใช้กรอก
2. ถ้าไม่พบข้อมูลผู้ใช้ (rs.EOF = True) แสดงข้อความแจ้งว่า Login ไม่สำเร็จ
3. ถ้าพบข้อมูลผู้ใช้ (rs.EOF = False) แสดงข้อความต้อนรับ และตรวจสอบระดับสิทธิ์ผู้ใช้ (ถ้ามี) เพื่อเปิดฟอร์มที่เหมาะสม

เพิ่มเติม:

• คุณสามารถปรับแต่งฟอร์ม Login ให้สวยงามตามต้องการ
• เพิ่มการเข้ารหัส Password ในตาราง tblUsers เพื่อความปลอดภัย
• สร้างฟอร์มสำหรับลงทะเบียนผู้ใช้ใหม่ (ถ้าต้องการ)
• ศึกษาเพิ่มเติมเกี่ยวกับการเขียนโค้ด VBA ใน MS Access เพื่อปรับแต่งระบบ Login ให้ตรงกับความต้องการของคุณ