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


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

14 ก.พ. 65 , 17:51:20
อ่าน 405 ครั้ง

arampong

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

 

14 ก.พ. 65 , 21:39:57
ตอบกลับ #1

arampong

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #1 เมื่อ: 14 ก.พ. 65 , 21:39:57 »
เรียนอาจารย์
ผมได้เขียน ที่ Frm1
Private Sub Text1_Enter()
If Me.Text1 = "QM" then
Forms("Frm2").Checkbox1 = True
Else
MsgBox "กรุณาใส่ข้อความให้ถูกต้อง"
End if
End Sub

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


 

15 ก.พ. 65 , 10:31:52
ตอบกลับ #2

UnKnown

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #2 เมื่อ: 15 ก.พ. 65 , 10:31:52 »
ไปทดลองทำมาได้โค้ดตามนี้ครับ / 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
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 

15 ก.พ. 65 , 11:16:09
ตอบกลับ #3

OddyWriter

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #3 เมื่อ: 15 ก.พ. 65 , 11:16:09 »
ตามนี้ครับ
วิกฤติโควิดทำให้ร้อนเงิน
ใครอยากจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

15 ก.พ. 65 , 12:40:20
ตอบกลับ #4

arampong

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #4 เมื่อ: 15 ก.พ. 65 , 12:40:20 »
ขอบคุณทั้ง 2 ท่านครับ

 

15 ก.พ. 65 , 13:36:46
ตอบกลับ #5

arampong

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #5 เมื่อ: 15 ก.พ. 65 , 13:36:46 »
ขอถามต่ออีกนิดครับ

ถ้า 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

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

 

15 ก.พ. 65 , 17:19:00
ตอบกลับ #6

OddyWriter

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #6 เมื่อ: 15 ก.พ. 65 , 17:19:00 »
ใช้ Select Case ครับ
วิกฤติโควิดทำให้ร้อนเงิน
ใครอยากจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 

16 ก.พ. 65 , 08:53:31
ตอบกลับ #7

arampong

: สอบถามการโยนค่า checkbox ข้าม Form ครับ
« ตอบกลับ #7 เมื่อ: 16 ก.พ. 65 , 08:53:31 »
ขอบคุณครับ

 


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