เรียนสอบถามท่านอาจารย์/ท่านผู้เชี่ยวชาญ ดังนี้ครับ
      หลังจากที่ผมได้ทำการสร้าง LogIn Form สำหรับเข้าทำงานในระบบเรียบร้อยแล้ว
               
      เมื่อกด OK ระบบจะตรวจสอบชื่อผู้ใช้งานว่าอยู่ใน Class อะไร จากตาราง UserClass
               
      หลังจากตรวจสอบแล้วก็เข้าสู่หน้าหลักของ Switchboard ดังข้างล่าง
               
      (สวิตช์บอร์ด อิงข้อมูลจากตาราง Switchboard items)     

       เงื่อนไข....
       ผู้ใช้งาน ระดับ A สามารถใช้งานได้ทุกปุ่ม (เข้าได้ทุกแผนก)
       ผู้ใช้งาน ระดับ B สามารถใช้งานได้แค่ปุ่มแผนกวิศวกรรม และปุ่มออกจากโปรแกรม
       ผู้ใช้งาน ระดับ C สามารถใช้งานได้แค่ปุ่มแผนกบัญชีและการเงิน ปุ่มแผนกบุคคล และปุ่มออกจากโปรแกรม
       ผู้ใช้งาน ระดับ D สามารถใช้งานได้แค่ปุ่มแผนกบัญชีและการเงิน และปุ่มออกจากโปรแกรม
       ผู้ใชงาน ระดับ E สามารถใช้งานได้แค่ปุ่มแผนกบุคคล และปุ่มออกจากโปรแกรม
       ผู้ใชงาน ระดับ F สามารถใช้งานได้แค่ปุ่มแผนกเครื่องมือ และปุ่มออกจากโปรแกรม

       ปัญหาของผมคือ ผมไม่ทราบวิธีที่จะบล็อคไม่ให้ปุ่มมันทำงานได้ในแต่ละเงื่อนไขครับ เพราะในมุมมองออกแบบของ Switchboard Manager มันไม่ได้แยกปุ่มอิสระต่อกัน แต่มันเป็นปุ่มเดียว และควบคุมโดยตาราง Switchboard Items อีกทีนึง
             
       
       ขอเรียนท่านอาจารย์/ท่านผู้ชำนาญการ ช่วยชี้แนะด้วยครับ

       ขอบพระคุณมากครับ....

Private Sub Text1_AfterUpdate()
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Select * From UserClass Where UserName='" + Text1 + "';")

If Rs.RecordCount = 0 Then
MsgBox " ¼Ùéãªéª×èÍ " + Text1 + " äÁèä´éÃѺ͹حҵãËéãªé§Ò¹ "
Text1 = ""
Text1.SetFocus
Exit Sub
End If

End Sub

ลองแล้วไม่ได้ครับ มันยังกระโดดไป Text2 อยู่ดีครับ
แต่ถ้าเป็น Event On Click ใช้ได้ครับ
Event after updated ใช้ไม่ได้อะครับ