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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

17 ต.ค. 62 , 09:02:18
อ่าน 300 ครั้ง

nat_c

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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

 

17 ต.ค. 62 , 11:43:46
ตอบกลับ #1

nat_c

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: command code ปิด-เปิด ซ่อนบางบริเวณใน form
« ตอบกลับ #1 เมื่อ: 17 ต.ค. 62 , 11:43:46 »
เจอ กระทู้ที่ 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

 

17 ต.ค. 62 , 14:20:36
ตอบกลับ #2

nonc31

: command code ปิด-เปิด ซ่อนบางบริเวณใน form
« ตอบกลับ #2 เมื่อ: 17 ต.ค. 62 , 14:20:36 »
ถ้าคำสั่งนี้ทำได้ ให้เปลี่ยนปุ่ม Command ใช้ปุ่มสลับ(Toggle) แทนครับ

 

17 ต.ค. 62 , 15:25:43
ตอบกลับ #3

PNR

: command code ปิด-เปิด ซ่อนบางบริเวณใน form
« ตอบกลับ #3 เมื่อ: 17 ต.ค. 62 , 15:25:43 »
เจอ กระทู้ที่ 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
« แก้ไขครั้งสุดท้าย: 17 ต.ค. 62 , 15:35:42 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 

17 ต.ค. 62 , 15:47:43
ตอบกลับ #4

nat_c

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: command code ปิด-เปิด ซ่อนบางบริเวณใน form
« ตอบกลับ #4 เมื่อ: 17 ต.ค. 62 , 15:47:43 »
ขอบพระคุณค่ะ ได้แล้วค่ะ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย