แคปชั่นปุ่มแสดงจำนวนจาก DCount

[thanapol.w]

สวัสดีครับ
ในฟอร์มแบบ continuous
ต้องการ แสดง ตัวเลข ที่ได้จาก Dcount จากตารางอื่น ๆ  โดยใช้ คอลัมแรกอ้างอิง  ให้ไปแสดงที่ปุ่มต้องกระทำอย่างไรครับ โดยแต่ละแถวจะต้องไม่เหมือนกัน
 

ตัวอย่าง
F-0016     ปุ่มแสดงว่า  เลือก(5)   ->  5 คือค่าที่ได้จาก Dcount

[PNR]

ในส่วนของ รายละเอียด หรือ Detail นะครับใส่โค้ดแบบนี้เข้าไป
สมมุติ botton ชื่อ btn1 นะครับ ตรง caption ปล่อยว่างๆไว้
และตรงส่วน Dcount ก็เอาของคุณมาใส่ได้เลย
ใช้ Event OnPaint นะครับ

โค๊ด: [Select]

Private Sub รายละเอียด_Paint()
If Not IsNull(ID) Then
Me.btn1.Caption = "เลือก (" & DCount("[Field]", "[table]", "[ID] =" & [ID] & "") & ")"
End If
End Sub
ID คือ Pk หรือชื่อ Field F-00.. ของคุณนั้นเอง ถ้า ID เป็น string อย่าลืมใส่ single quote ด้วยนะครับ เช่น

โค๊ด: [Select]

Me.btn1.Caption = "เลือก (" & DCount("[Field]", "[table]", "[ID] ='" & [ID] & "'") & ")"

[thanapol.w]

ขอบคุณึครับ  ขอทราบ Event on print คืออะไรครับ  ไม่เคยใช้เลยครับ

[PNR]

ขอบคุณึครับ  ขอทราบ Event on print คืออะไรครับ  ไม่เคยใช้เลยครับ

ไม่ใช่ on print นะครับ on print จะอยู่ใน Report เน้อ

OnPaint ถ้าจะกำหนดคุณสมบัติ การอ่าน หรือ เขียน เงื่อนไขในส่วนของSection จะใช้อีเว้นนี้ครับ
ไม่ว่าจะกำหนดสี , เส้น หรืออื่นๆ ในส่วน Section ของฟอร์ม