ซ่อนด้วยคำสั่ง

Private Sub Form_Load()

DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.RunCommand acCmdWindowHide

End Sub

ไม่รู้ตรงความต้องการรึเปล่า

ครับ เคยลองแล้ว
-มันเด้งเข้าเด้งออกครับ
-ผู้ใช้สามารถกด f11 ได้

เราต้องปิด การใช้งาน F11 เอง

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
      Case vbKeyF11:
               KeyCode = 0
               SwitchNavPane
End Select
End Sub

Private Sub Form_Load()

     Me.KeyPreview = True
     DoCmd.NavigateTo "acNavigationCategoryObjectType"
     DoCmd.RunCommand acCmdWindowHide
End Sub

Public Function SwitchNavPane()
On Error Resume Next

' Shows and Hides the Access 2007/2010 Navigation Pane Using the F11 Function Key
' http://www.UtterAccess.com/wiki/index.php/Use_F11_to_Show/Hide_Navigation_Pane
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev date        brief descripton
' 1.0 2012-07-18
'
   Dim strMDE As String
   Static bolHidden As Boolean
   
   'if this is an executable file (accde) then exit function
   strMDE = CurrentDb.Properties("MDE")
   If Err = 0 And strMDE = "T" Then Exit Function
       
   'Select object (table) in navigation pane - forces focus to table and navigation pane to open if closed
   'Table name must be a valid table name in database
   DoCmd.SelectObject acTable, , True
'   DoCmd.SelectObject acTable, "tblAdmin", True
   'If navigation pane open then close
   If bolHidden = 0 Then DoCmd.RunCommand acCmdWindowHide


End Function

ยังทำไม่ได้อ่ะครับ

การป้องกัน F11 พอทำได้

แต่กันไม่ให้แถบ Navigation มันเด้งออกมา(ตอนรันคำสั่งimport) ทำไม่ได้ครับ

คือมันจะเด้งออกมาแวบนึงทำให้ฟอร์มเราเคลื่อน
แล้วก็หายไปตามคำสั่งที่เราสั่งซ่อน
(แต่ฟอร์มมันไม่เคลื่อนกลับที่)

นึกภาพ ไม่ออก ครับ ว่า เป็นอย่างไร

ไปที่ FILE > OPTIONS
ไปแถบ CURRENT DATABASE > เอา Display Navigation Pane ออก

ออกแล้วเข้าโปรแกรมใหม่

ของผมมันไม่เด้งนะ พอทำแล้วอะ

คือมันจะเด้งตอนคำสั่ง
docmd.TransferText acLinkFixed,...
นี้ครับ

เป็นกันไหมครับ

แล้ว prevent f11 ก็ไม่เวริค
ต้องสร้าง code ในทุกฟอร์มเลยหรือครับ
พอย้ายไปฟอร์มอื่นที่ไม่มีโค๊ต user ก็เรียก database สบายเลย

เอาคำสั่งซ่อน navigation pane วางไว้ใต้คำสั่ง
ที่ import : Docmd. Transfertext
ใช้ได้มั้ย???

ตัวอย่าง การใช้ code

DoCmd.SelectObject acTable, “YourTable”, True
DoCmd.RunCommand acCmdWindowHide

This would flash the nav pane up...you might be able to avoid that using the Echo method e.g.:
DoCmd.Echo False

DoCmd.TransferText...

DoCmd.SelectObject acTable, “YourTable”, True
DoCmd.RunCommand acCmdWindowHide
DoCmd.Echo True

ไม่เวริคครับ

docmd.Echo false
docmd.TransferText acLink,...
DoCmd.RunCommand acCmdWindowHide
DoCmd.Echo True

ยังคงแสดง Nav Pane อยู่ในขณะที่สั่ง transferText
และหายไปเมื่อสั่ง windowhide ครีบ

ถูกต้องแล้วครับ
ตรวจสอบแล้วว่า เป็น bug หลัง transfer data เข้ามา แล้วเกิดการ refresh navigation pane ก็ปรากฎขึ้น เราก็ต้องซ่อน มัน(ต่อไป)

http://www.utteraccess.com/forum/lofiversion/index.php/t1745603.html

จริงดิ
เศร้าเลย
ต้องโชว์กํนต่อไป

เปลี่ยนเป็น version 2010 สิครับ