Excel Forum

อันนี้เป็น VBA ในปุ่ม login ครับ
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 ...

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

ตามภาพเลยครับ คือค่ามันไม่เข้าตาราง table ครับ รบกวนทีครับ