กระทู้เก่าบอร์ด อ.Yeadram
1,692 5
URL.หัวข้อ /
URL
รบกวนสอนวิธีอ้างอิงค่าของ Continuous Forms ด้วยคะ
มี sub form ที่มี view เป็น Continuous Forms
ทำยังงัยถึงจะอ้างอิงค่าของ record ที่เรา click จาก sub form ได้หละคะ
(สมมุติว่า ตอนนี้ sub form โชว์ข้อมูล 3 records แล้วเรา click ที่ record ที่2 ก็อยากจะอ้างอิงค่าใน column A ของ record ที่2 ได้ )
ตอนที่ทำไม่เป็นหนะคะ
ทำยังงัยถึงจะอ้างอิงค่าของ record ที่เรา click จาก sub form ได้หละคะ
(สมมุติว่า ตอนนี้ sub form โชว์ข้อมูล 3 records แล้วเรา click ที่ record ที่2 ก็อยากจะอ้างอิงค่าใน column A ของ record ที่2 ได้ )
ตอนที่ทำไม่เป็นหนะคะ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01535
Forms("ชื่อ MainForm").[ชื่อ subform control].form.[ชื่อ control ใน subform]
2 @R01537
ขอบคุณมากๆคะ ตอนนี้อ้างอิงค่าได้แล้วหนะคะ (ตามที่สอนข้างบน)
โดยใช้ Event enter ค่ะ(เพราะมันมีให้เลือกแค่ 2 อันเองอะคะ คือ enter กะ exit)
Private Sub SubFormMainTainClaimT_Enter()
Forms("MainTainClaimTransaction").[test].Value = Forms("MainTainClaimTransaction").[SubFormMainTainClaimT].Form.[claimno]
End Sub
แต่มันติดปัญหาตรงที่ว่า พอเรา Click record อื่น ที่ไม่ใช่ record แรกสุด มันไม่ยอมอ้างอิงค่าที่ record ใหม่ที่ click ไปหนะคะ
รบกวนด้วยนะคะ ขอบคุณมากๆ คะ
โดยใช้ Event enter ค่ะ(เพราะมันมีให้เลือกแค่ 2 อันเองอะคะ คือ enter กะ exit)
Private Sub SubFormMainTainClaimT_Enter()
Forms("MainTainClaimTransaction").[test].Value = Forms("MainTainClaimTransaction").[SubFormMainTainClaimT].Form.[claimno]
End Sub
แต่มันติดปัญหาตรงที่ว่า พอเรา Click record อื่น ที่ไม่ใช่ record แรกสุด มันไม่ยอมอ้างอิงค่าที่ record ใหม่ที่ click ไปหนะคะ
รบกวนด้วยนะคะ ขอบคุณมากๆ คะ
3 @R01538
ถ้าต้องการให้แสดงเมื่อคลิกที่เรคอร์ดใน subform ก็ควรกำหนดใน Form_Current event ของ subform น่าจะเหมาะกว่าครับ การเขียนก็จะกลับกันโดยใช้ .Parent เพื่ออ้างไปยัง mainform (หรือจะใช้วิธีเดิมก็ได้)
Private Sub Form_Current( )
if me.newrecord then
me.parent.test = "" 'หรือจะให้เป็น 0 หรือเป็น null ก็แล้วแต่ว่า test จะรับอะไรได้บ้าง ไปลองเองครับ
else
me.parent.test = me.claimno
end if
End Sub
หมายเหตุ : เครื่องหมาย [ ] ใช้เมื่อภายในชื่อมี space คั่น ถ้าไม่มีก็ไม่จำเป็น เกะกะครับ, .Value ไม่จำเป็นเหมือนกัน เพราะมันเป็น default property ของ control อยู่แล้ว
Private Sub Form_Current( )
if me.newrecord then
me.parent.test = "" 'หรือจะให้เป็น 0 หรือเป็น null ก็แล้วแต่ว่า test จะรับอะไรได้บ้าง ไปลองเองครับ
else
me.parent.test = me.claimno
end if
End Sub
หมายเหตุ : เครื่องหมาย [ ] ใช้เมื่อภายในชื่อมี space คั่น ถ้าไม่มีก็ไม่จำเป็น เกะกะครับ, .Value ไม่จำเป็นเหมือนกัน เพราะมันเป็น default property ของ control อยู่แล้ว
4 @R01556
ทำได้แล้วคะ ขอบคุณมากๆ เลยคะ
5 @R13223
ผมก้อเจอกับปัญหานี้เหมือนกันครับ พอจะมีภาพตัวอย่างหรือตัวโปรแกรมให้แกะมั้ยครับ ตอนี้ ผมลองแล้วยังไม่ได้เลยครับ มี subform 1 และ 2 sub1 qeuery ออกมาได้ เป็นผลลัพธ์ และต้องการจะเลือก ผลลัพธ์นั้น เพื่อไปแสดงอีก ในหน้า sub 2 และใช้ sub2 นี้ในการออกreport เป็น text file อ่ะครับ
Time: 0.5621s
