กระทู้เก่าบอร์ด อ.Yeadram
2,591 15
URL.หัวข้อ /
URL
์Navigation Pane 2007 ซ่อนไม่ได้ทำไงดี
คือได้ไปกำหนด Access Option ให้ไม่ต้อง Display Navigation Pane แล้ว
และตอนเปิดใช้งานโปรแกรมมันก็ไม่แสดงอยู่หรอกนะครับ
แต่พอ Run คำสั่งที่เกี่ยวกับ Object อย่างเช่น Import Table
มันแสดง Navigation Pane ออกมาเลยครับ
ผมไม่ต้องการให้มันแสดงออกมาเลย ต้องทำอย่างไรครับ
MsAccess2007
มันไม่เหมือน version เดิมที่กำหนดไม่ให้แสดง database ได้นะครับ
และตอนเปิดใช้งานโปรแกรมมันก็ไม่แสดงอยู่หรอกนะครับ
แต่พอ Run คำสั่งที่เกี่ยวกับ Object อย่างเช่น Import Table
มันแสดง Navigation Pane ออกมาเลยครับ
ผมไม่ต้องการให้มันแสดงออกมาเลย ต้องทำอย่างไรครับ
MsAccess2007
มันไม่เหมือน version เดิมที่กำหนดไม่ให้แสดง database ได้นะครับ
15 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21902
ครับ เคยลองแล้ว
-มันเด้งเข้าเด้งออกครับ
-ผู้ใช้สามารถกด f11 ได้
-มันเด้งเข้าเด้งออกครับ
-ผู้ใช้สามารถกด f11 ได้
3 @R21904
เราต้องปิด การใช้งาน 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 เอง
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
4 @R21907
ยังทำไม่ได้อ่ะครับ
การป้องกัน F11 พอทำได้
แต่กันไม่ให้แถบ Navigation มันเด้งออกมา(ตอนรันคำสั่งimport) ทำไม่ได้ครับ
คือมันจะเด้งออกมาแวบนึงทำให้ฟอร์มเราเคลื่อน
แล้วก็หายไปตามคำสั่งที่เราสั่งซ่อน
(แต่ฟอร์มมันไม่เคลื่อนกลับที่)
การป้องกัน F11 พอทำได้
แต่กันไม่ให้แถบ Navigation มันเด้งออกมา(ตอนรันคำสั่งimport) ทำไม่ได้ครับ
คือมันจะเด้งออกมาแวบนึงทำให้ฟอร์มเราเคลื่อน
แล้วก็หายไปตามคำสั่งที่เราสั่งซ่อน
(แต่ฟอร์มมันไม่เคลื่อนกลับที่)
5 @R21908
นึกภาพ ไม่ออก ครับ ว่า เป็นอย่างไร
6 @R21911
ไปที่ FILE > OPTIONS
ไปแถบ CURRENT DATABASE > เอา Display Navigation Pane ออก
ออกแล้วเข้าโปรแกรมใหม่
ไปแถบ CURRENT DATABASE > เอา Display Navigation Pane ออก
ออกแล้วเข้าโปรแกรมใหม่
7 @R21912
ของผมมันไม่เด้งนะ พอทำแล้วอะ
8 @R21951
คือมันจะเด้งตอนคำสั่ง
docmd.TransferText acLinkFixed,...
นี้ครับ
เป็นกันไหมครับ
docmd.TransferText acLinkFixed,...
นี้ครับ
เป็นกันไหมครับ
9 @R21960
แล้ว prevent f11 ก็ไม่เวริค
ต้องสร้าง code ในทุกฟอร์มเลยหรือครับ
พอย้ายไปฟอร์มอื่นที่ไม่มีโค๊ต user ก็เรียก database สบายเลย
ต้องสร้าง code ในทุกฟอร์มเลยหรือครับ
พอย้ายไปฟอร์มอื่นที่ไม่มีโค๊ต user ก็เรียก database สบายเลย
10 @R21969
เอาคำสั่งซ่อน navigation pane วางไว้ใต้คำสั่ง
ที่ import : Docmd. Transfertext
ใช้ได้มั้ย???
ที่ import : Docmd. Transfertext
ใช้ได้มั้ย???
11 @R21972
ตัวอย่าง การใช้ 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.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
12 @R21992
ไม่เวริคครับ
docmd.Echo false
docmd.TransferText acLink,...
DoCmd.RunCommand acCmdWindowHide
DoCmd.Echo True
ยังคงแสดง Nav Pane อยู่ในขณะที่สั่ง transferText
และหายไปเมื่อสั่ง windowhide ครีบ
docmd.Echo false
docmd.TransferText acLink,...
DoCmd.RunCommand acCmdWindowHide
DoCmd.Echo True
ยังคงแสดง Nav Pane อยู่ในขณะที่สั่ง transferText
และหายไปเมื่อสั่ง windowhide ครีบ
13 @R21993
ถูกต้องแล้วครับ
ตรวจสอบแล้วว่า เป็น bug หลัง transfer data เข้ามา แล้วเกิดการ refresh navigation pane ก็ปรากฎขึ้น เราก็ต้องซ่อน มัน(ต่อไป)
http://www.utteraccess.com/forum/lofiversion/index.php/t1745603.html
ตรวจสอบแล้วว่า เป็น bug หลัง transfer data เข้ามา แล้วเกิดการ refresh navigation pane ก็ปรากฎขึ้น เราก็ต้องซ่อน มัน(ต่อไป)
http://www.utteraccess.com/forum/lofiversion/index.php/t1745603.html
14 @R22005
จริงดิ
เศร้าเลย
ต้องโชว์กํนต่อไป
เศร้าเลย
ต้องโชว์กํนต่อไป
15 @R22008
เปลี่ยนเป็น version 2010 สิครับ
Time: 0.2698s
Private Sub Form_Load()
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
End Sub
ไม่รู้ตรงความต้องการรึเปล่า