จะซ่อน Ribbon Bar ใน Access2007 อย่างไรครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,376   7
URL.หัวข้อ / URL
จะซ่อน Ribbon Bar ใน Access2007 อย่างไรครับ

หลังจากไปกำหนดใน current database ให้แสดง form เริ่มต้นตามที่เราต้องการแล้ว ผมไม่อยากให้มันแสดงแถบ ribbon home ด้านบนครับ ต้องทำอย่างไรครับ
(ไม่ใช่การ minimize ribbon นะครับ)

7 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R21333
ลองดูนะครับ เผื่อจะใช่ที่ต้องการ

https://msdn.microsoft.com/en-us/library/bb258192%28v=office.12%29.aspx

https://www.youtube.com/watch?v=pX54zCCJzIY
2 @R21334
Private Sub Form_Load()
Dim i As Integer
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'ซ่อน Ribbon'
DoCmd.LockNavigationPane True 'ล๊อกNavigationPane'
For i = 1 To CommandBars.Count
             CommandBars(i).Enabled = False 'ซ่อนNavigationPane'
            Next i
End Sub

ลองดูครับ
3 @R21335
ทำไมทำตามแล้วRibbonไม่ซ่อนครับ

ขึ้นแบบนี้ครับ ช่วยด้วย
4 @R21339
ขอดูที่คุณใส่หน่อย
5 @R21340
ลองใส่โค๊ดนี้ใน เหตุการณ์ "เมื่อเรียกใช้งานปัจจุบัน" ไม่ทราบว่าจะตรงกับที่ต้องการหรือเปล่าครับ
Private Sub Form_Current()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
6 @R21347
ลองใส่สองบรรทัดนี้ด้วยคับ
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
ถ้าไม่ได้ต้องใส่ทั้งหมดคับ
7 @R21349
ผมใช้ตามคุณไพรินทร์ครับ
สั้นๆง่ายๆดี ฝังไว้ที่ on open

DoCmd.ShowToolbar "Ribbon", acToolbarNo

แต่ตอนแรกไม่เวริคครับ ติดปัญหานิดหน่อย
คือพอโปรแกรมเปิดแล้วมันยังไม่ซ่อน
งมอยู่นาน จนเจอว่า ต้องเข้าไปติ๊กที่
Access Option>Current Database
[ / ] Allow Built-in toolbars

มันถึงจะซ่อนตามที่ต้องการ

(Option ตัวนี้อาจจะติ๊กเป็น default อยู่แล้ว แต่ผมเอาโปรแกรมเดิมมาแก้ option ตัวนี้มันก็เลยไม่ได้ถูกติ๊กไว้มั๊งครับ)

ขอบคุณทุกคนนะครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2989s