การ Lock Navigation Pane

[prajak]

รบกวนสอบถามครับ มีวิธีการ lock Navigation Pane หน่อยครับ นอกจากการปลดเครื่องหมายติ็กถูกออกครับ

[OddyWriter]

คำสั่งซ่อน 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
   

[prajak]

ขอบคุณมากครับ ใช้ได้เลยครับ

[prajak]

คำสั่งซ่อน 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
   

คำสั่งป้องกันกด F11 ต้องวางไว้ตรงไหนครับ

[OddyWriter]

 on key down ของฟอร์มครับ

[patipat]

on key down ของฟอร์มครับ

ได้แล้วครับขอบคุณมากครับ