Loop เปลี่ยนสีแถบ Navigation

[Kxess]

สวัสดีครับ

ผมจะ loop เพื่อเปลี่ยนสีแถบ ในเหตุการณ์ onload ของ ฟอร์มหลัก โดยมี navigation form อยู่ในส่วนของ Detail ซึ่งผลที่ออกมาคือ
สีเปลี่ยนแค่แถบเดียว คือแถบ "Home" ซึ่งไม่เปลี่ยนทั้งหมด รบกวนช่วยดูหน่อยครับ
ปล. ทุกแถบใส่ Tag ค่า "b1" หมดแล้ว
ขอบคุณครับ



โค้ดฟอร์มหลัก

โค๊ด: [Select]

Sub Formstyle(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
        If ctl.Tag = "b1" Then
            ctl.BackColor = 11193702
        End If
    Next ctl
    'ctl = Nothing
End Sub
โค้ดในเหตุการณ์ onload ของฟอร์มหลัก
'แค่เรียก

โค๊ด: [Select]

--
Formstyle Me
--

[PNR]

ทำปุ่มพื้นหลัง ให้เป็นสีที่ต้องการใช่ไหมคับ

โค๊ด: [Select]

Sub Formstyle(frm As Form)
Dim ctl     As Control
    For Each ctl In frm.Controls
        If ctl.ControlType = acNavigationButton And ctl.Tag = "b1" Then
                      ctl.BackColor = 11193702
             End If
    Next ctl
End Sub

แต่ถ้าอยากให้เปิดขึ้นมาแล้ว แสดงสี ถ้า tag = B1 ทั้งแบบที่กด Tab อยู่ และ ที่ยังไม่กดก็เพิ่มเป็น

โค๊ด: [Select]

Sub Formstyle(frm As Form)
Dim ctl     As Control
    For Each ctl In frm.Controls
        If ctl.ControlType = acNavigationButton And ctl.Tag = "b1" Then
                      ctl.BackColor = 11193702
                      ctl.PressedColor = 11193702
             End If
    Next ctl
End Sub


[Kxess]

ขอบคุณครับ

เป็นเหมือนเดิมครับ คือ สีเปลี่ยนเฉพาะแถบ "Home" ซึ่งสีมันควรจะเปลี่ยนทั้ง Home , สนทนา , รายงาน , และแถบอื่น ๆ

สีแดงคือแถบ "HomePage" ซึ่งโค้ดจะอยู่ในนี้ รวมถึงตอนเรียกใช้ Formstyle Me ซึ่ง Me น่าจะเป็นฟอร์มที่อยู่ในแถบ "Home"

ต้องอ้างอิงชื่อฟอร์มยังไงดีครับ

[PNR]

ส่งไฟล์มาที่ inbox ส่วนตัวหน่อยครับผมดูให้

[Kxess]

ผมไม่เข้าใจว่าทำไมมันไม่วนเปลี่ยนสีให้ครบทุกแถบ

ผมสามารถอ้างอิงโดยใส่โค้ดทีละบรรทัดแบบนี้ ในเหตุการณ์ onload ของฟอร์มหลัก

Me.Nav_Home.BackColor = 11193702
Me.Nav_Home_Sub1.BackColor = 11193702
Me.Nav_Customers.BackColor = 11193702
.
.
.

แล้วก็วนไปเรื่อย ๆ ทุกแถบก็ได้ สีก็เปลี่ยนทุกแถบ แต่พอจะลอง Loop ดูกลับไม่ได้

[PNR]

แบบนี้ไหมครับ



Sub Formstyle(frm As Form)
For Each ctl In frm.Controls
         If ctl.ControlType = acNavigationButton Or acNavigationControl And ctl.Tag = "b1" Then
                      ctl.BackColor = 4210943
         End If
    Next ctl
    'ctl = Nothing
End Sub

[Kxess]

แบบนี้เลยครับ ขอบคุณมากครับ