เปลี่ยนเป็น

Forms![MainMenu]![AdminPage].Enabled = False

คือผมพยายามหลีกเลี่ยงคำสั่ง docmd sendkey f9 น่ะครับ เพราะมันมีผลให้การทำงานของ Numlock ผิดปกติ ถ้าจะเขียน Code ตรวจสอบสถานะของ Numlock ก็ได้ แต่วุ่นวายเพราะ 32 bit กับ 64 bit เขียนโค้ดต่างกันอีก

แนะนำว่าลองเปลี่ยน docmd.requery เป็น docmd.save ดูครับ ถ้าความเร็วในการทำงานอยู่ในช่วงที่รับได้ ก็ใช้ไป แต่ถ้าช้า แสดงว่ามีปัญหาในการวางระบบฐานข้อมูลแล้วล่ะ อาจต้องส่งมาให้ผมดูครับ

ถ้า Combo Box ในฟอร์ม POH ของคุณ กำหนด Record Source จากตารางที่ใช้สร้างฟอร์มเพิ่ม Supplier ให้ใส่ docmd.requery ที่ on click ของ combobox ครับ ชัวร์สุด

คำสั่งซ่อน Navigation Pane

Private Sub Command6_Click()
DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.RunCommand acCmdWindowHide

End Sub

คำสั่งป้องกัน F11

   
    Select Case KeyCode
          Case vbKeyF11
               KeyCode = 0
               MsgBox "F11 has been disabled.", vbOKOnly, "Disabled Key"
     End Select
   

คลิกเปิดแหล่งข้อมูลแถวครับ

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/on-error-statement

งั้นแสดงว่าข้อมูลจาก Host เดิมไม่หายนะครับ เนื่องจากตอนนี้กำลังติดต่อ สนพ. เรื่องเอาข้อมูลที่ Host เก่าไปรวมเล่มอยู่ จะได้สบายใจ

อีกอย่างตอนนี้ผมรอตอบอยู่ที่นี่แล้วครับ ที่เดิมไม่ค่อยได้แวะไปดูแล้ว