command code ปิด-เปิด ซ่อนบางบริเวณใน form

[nat_c]

เขียน code อย่างไรเพื่อใช้ปุ่ม command ปิด-เปิด บังบางบริเวณ ในฟอร์ม  หรือ อจ.มีวิธีแนะนำเป็นอย่าง  ก่อนหน้าพยายามใช้เรื่อง sub-form ร่วมกับ detail  แต่ทำไม่ได้สักทีเลยคิดว่าจะใช้วิธีนี้ค่ะ

[nat_c]

เจอ กระทู้ที่ 98 ของ อจ.PNR ใช้แบบกำหนด tag เป็นกลุ่ม click แล้ว in-visible ถ้าจะให้ visible เหมือนเดิม ต้องให้ true ตรงไหน
Private Sub Command321_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" Then
                ctl.Visible = False
     
        End If
        Next ctl
End Sub

[nonc31]

ถ้าคำสั่งนี้ทำได้ ให้เปลี่ยนปุ่ม Command ใช้ปุ่มสลับ(Toggle) แทนครับ

[PNR]

เจอ กระทู้ที่ 98 ของ อจ.PNR ใช้แบบกำหนด tag เป็นกลุ่ม click แล้ว in-visible ถ้าจะให้ visible เหมือนเดิม ต้องให้ true ตรงไหน
Private Sub Command321_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" Then
                ctl.Visible = False
     
        End If
        Next ctl
End Sub

แก้เป็นแบบนี้ครับ ถ้าแสดงอยู่ก็ให้ซ่อน ถ้าซ่อนอยู่ก็ให้แสดง Group1 คือชื่อของ Tag สามารถตั้งชื่อได้ตามความต้องการ

โค๊ด: [Select]

Private Sub Command6_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" And ctl.Visible = False Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And ctl.Visible = True Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

หรือจะสร้าง Toggle แบบไอเดียคุณ nonc31 ก็น่าจะสะดวกดีครับเช่น
ผมสมมุติ ชื่อ Toggle ชื่อ Toggle13

โค๊ด: [Select]

Private Sub Toggle13_Click()
    Dim ctl As Control
    For Each ctl In Me
If ctl.Tag = "Group1" And Me.Toggle13 Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And Not Me.Toggle13 Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

[nat_c]

ขอบพระคุณค่ะ ได้แล้วค่ะ