เป็นการจัดการบัญชีผู้ใช้งานซึ่งสามารถเพิ่มหรือลดได้ กำหนดให้แบ่งระบบผู้ใช้งานเป็น Admin และ User โดยที่ Admin สามารถเข้าใช้งานเมนู Add User ได้เท่านั้น
1. เปิด Main Form ขึ้นมาในมุมมองออกแบบ และกำหนด จัดกึ่งกลางอัตโนมัติ เป็น ใช่
กำหนดเหตุการณ์ เมื่อโหลด โดยไปที่แท็บ เหตุการณ์ เลือก เมื่อโหลด แล้วคลิกปุ่ม ... ตรงท้าย หรือกด Alt+F11 และไปที่ Form_Main Form ก็ได้
ในส่วนของ Private Sub Form_Load() ให้ลบ DoCmd.MoveSize 3000, 2000 ออกไปให้เหลือแค่
Private Sub Form_Load()
Call load_login
End Sub
จากข้อนี้จะเป็นการกำหนดให้ Main Form แสดงตรงกึ่งกลางหน้าเมื่อแสดงแบบ Dialog
2. จากวัตถุ Access ทางซ้ายมือ ให้คลิกซ้ายที่ User Query แล้วไปที่เมนู สร้าง >> ฟอร์ม
โปรแกรมจะสร้างฟอร์มสำเร็จรูปให้โดยใช้ข้อมูลจาก User Query บันทึกฟอร์มและตั้งชื่อฟอร์มเป็น User Form เสร็จแล้วตกแต่งให้สวยงาม
2.1 กำหนดคุณสมบัติของฟอร์ม User Form โดยคลิกขวาที่มุมซ้ายบนของฟอร์มเลือก คุณสมบัติ
- ป้ายคำอธิบาย: Add User
- มุมมองเริ่มต้น: Single Form
- จัดกึ่งกลางอัตโนมัติ: ใช่
- กำหนดเหตุการณ์ เมื่อโหลด พิมพ์โค้ดตามนี้
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec 'กำหนดให้ไปยังหน้าว่างเพื่อบันทึกข้อมูลใหม่
End Sub
2.2 แก้ไขคำอธิบาย Label ในส่วนหัวของฟอร์มเป็น บันทึกผู้ใช้งาน
2.3 แทรกปุ่ม หรือ Button 1 ปุ่มสำหรับ Save ข้อมูล แล้วกำหนดคุณสมบัติ
- ชื่อ: Command1
- ป้ายคำอธิบาย: Save
- กำหนดรูปแบบของปุ่มโดยคลิกปุ่มนี้แล้วคลิกไปที่เมนู รูปแบบ >> ลักษณะด่วน
- คลิกขวาที่ปุ่ม เลือก สร้างเหตุการณ์ เลือก ตัวสร้างโค้ด แล้วพิมพ์โค้ดตามนี้
Private Sub Command1_Click()
DoCmd.RunCommand acCmdSaveRecord 'กำหนดให้บันทึกข้อมูล
DoCmd.GoToRecord , , acNewRec 'กำหนดให้ไปยังหน้าว่างเพื่อบันทึกข้อมูลใหม่
End Sub
2.4 แทรกปุ่ม หรือ Button 1 ปุ่มสำหรับปิดหน้าฟอร์ม แล้วกำหนดคุณสมบัติ
- ชื่อ: Command2
- ป้ายคำอธิบาย: X
- กำหนดรูปแบบของปุ่มจากลักษณะด่วน
- กำหนดเหตุการณ์เหมือนข้อ 2.3 โดยพิมพ์โค้ดตามนี้
Private Sub Command2_Click()
DoCmd.Close acForm, "User Form", acSaveYes 'กำหนดให้ปิดฟอร์ม User Form แบบบันทึกข้อมูลด้วย
End Sub
3. หลังจากสร้างฟอร์ม User Form เสร็จแล้วให้บันทึกและปิดฟอร์มไป จากนั้นให้เปิด Main Form ขึ้นมาเพื่อสร้างปุ่มสำหรับเรียกใช้งาน User Form
3.1 เปิด Main Form ในมุมมองออกแบบ สร้างปุ่ม 1 ปุ่ม กำหนดคุณสมบัติ
- ชื่อ: Command0
- ป้ายคำอธิบาย: Add User
- กำหนดรูปแบบของปุ่มจากลักษณะด่วน
- คลิกขวาและสร้างเหตุการณ์โดยพิมพ์โค้ดตามนี้
Private Sub Command0_Click()
'ตรวจสอบ Type ของผู้ใช้ว่าเป็น Admin หรือไม่
If DLookup("user_type", "[User]", "user_code='" & Me.txt_user_code & "'") = "A" Then
DoCmd.OpenForm "User Form", acNormal, , , , acDialog
Else
MsgBox "Admin only !!!"
End If
End Sub
ทดสอบรันโปรแกรม
ความคิดเห็น
แสดงความคิดเห็น