สอบถามการโยนค่า checkbox ข้าม Form ครับ

[arampong]

ขอสอบถามครับการโยนค่า Checkbox ข้าม Form ครับ
คือ ผมมีForm ชื่อ Frm1,Frm2  โดยที่
Frm1 รับค่าที่ Text1
สมมุติครับถ้าค่า Text1 = "QM" ถ้าใช่
ให้ Frm2 ที่ Checkbox1 = True จะเขียนแบบไหนครับ
ขอบคุณครับ

[arampong]

เรียนอาจารย์
ผมได้เขียน ที่ Frm1
Private Sub Text1_Enter()
If Me.Text1 = "QM" then
Forms("Frm2").Checkbox1 = True
Else
MsgBox "กรุณาใส่ข้อความให้ถูกต้อง"
End if
End Sub

เรียนอาจารย์ มันไม่มี Error แต่ checkbox1 ก็ไม่มีค่าครับ ทำไมมันไม่ติกถูกที่checkbox1 ครับ
ขอบคุณครับ

[UnKnown]

ไปทดลองทำมาได้โค้ดตามนี้ครับ / F_Bill_v7_Item ชื่อฟอร์มย่อยผม

โค๊ด: [Select]

Private Sub Percent_AfterUpdate()
        If Me.Percent >= 5 Then
            Me.F_Bill_v7_Item.Form.Check466 = True
        Else
            Me.F_Bill_v7_Item.Form.Check466 = False
            MsgBox "น้อยกว่า 5%"
        End If
End Sub

[OddyWriter]

ตามนี้ครับ

[arampong]

ขอบคุณทั้ง 2 ท่านครับ

[arampong]

ขอถามต่ออีกนิดครับ

ถ้า QM ผมมี QM1-QM20
มันต่องใช้ IF เยอะมาก พอจะย่นให้สั้นได้ไหมครับ
จากที่อาจาย์หลายท่านแนะนำ IF เยอะมันจะ
ทำงานหลายรอบ และอาจทำให้โปรแกรมช้า

ขอรบกวนอีกครั้งครับ

Private Sub Text0_AfterUpdate()
    If Text0.Value = "QM1" Then
        Forms![frmForm2]![Check1] = True
    ElseIf Text0.Value = "QM2" Then
        Forms![frmForm2]![Check2] = True
     ElseIf Text0.Value = "QM3" Then
        Forms![frmForm2]![Check3] = True
       ElseIf........QM20

     Else
    Forms![frmForm2]![Check2] = False
    Forms![frmForm2]![Check3] = False
    Forms![frmForm2]![Check4] = False


End If
End If
End If
.
.
.
End Sub

ขอบคุณอีกครั้งครับ

[OddyWriter]

ใช้ Select Case ครับ

[arampong]

ขอบคุณครับ