การใซ้ Checkbox ใน subform ของaccess

[ปิ่นณรงค์]

ถ้าจะรวมข้อมูลจาก 3 ตารางเพื่อมาแสดงบนฟอร์มและสามารถออกรายงานได้เลย




ลองดูตัวอย่างด้านล่างครับ

[nousinh]

ถ้าผมอยากให้มี 3ฟอร์ม แล้ว แต่ละฟอร์มสามารถออกรายงานในReport ตวเดียวกันได้ไหมครับ

[ปิ่นณรงค์]

สามารถกำหนดให้ Report ตัวเดียว สามารถใช้กับ Query Report ที่เรากำหนดได้โดยกำหนดดังนี้
ที่ RecordSource ของรายงานเว้นว่างไว้ ไม่ต้องกำหนด

ที่ตัวรายงาน ใส่ Event On Open Code ตามนี้

โค๊ด: [Select]

If Len(Me.OpenArgs & "") > 0 Then
Me.RecordSource = Me.OpenArgs
End If
OpenArgs คือการกำหนดตั้งค่าคุณสมบัติให้กับ RecordSounce ของตัวรายงาน หรือฟอร์ม

ส่วนที่ Command Botton ที่เราใช้เปิดรายงานบนฟอร์มนั้น กำหนดค่า Docmd.OpenReport..........
เป็นแบบนี้ ผมยกตัวอย่างเปิดรายงานจากฟอร์ม PG_Type

Private Sub Print_PG_Click()
Form.Requery   
DoCmd.OpenReport "report", acViewPreview, , , , "Report_PG"
End Sub

Report คือ ชื่อของ Report ที่เราจะเปิดขึ้นมา 
Report_PG คือ ชื่อคิวรี่ที่จะกำหนดเป็น RecordSource

[nousinh]

ผมทำแล้วแต่มันยังไม่ได้ครับพี่

[ปิ่นณรงค์]

ผมทำแล้วแต่มันยังไม่ได้ครับพี่

คุณกำหนด Event ใน Report เป็น On Click มันเลยไม่ทำงาน
ต้องกำหนดที่ Event On Open ครับ

[nousinh]

ผมทำแล้วคับพี่แต่มันยังผิดตรงนี้ครับ

[ปิ่นณรงค์]

คุณพยายามอ่านที่ผมอธิบายนิดนึงนะครับบางทีผมก็แจ้งไว้แล้วแต่คุณไม่ได้ตั้งค่าเลยผิดพลาด

[nousinh]

พี่ผมต้องขออนุญาตพี่ช่วยทำตัวอย่างให้ผมหน่อยได้ไหมครับ เพราะผมทำอย่างที่พี่บอกแล้วแต่ก็ยังไม่ได้
 ในฟอร์มรายงานเปิดขึ้นมาเป็นแบบนี้ครับ ช่วยผมหน่อยครับ

[ปิ่นณรงค์]

ส่วนท้ายที่ผมโพสผมจะแนบตัวอย่างอยู่ด้วยครับ


ชื่อ database.rar
หรือถ้าสะดวกลง Treamveiwer แล้วส่งรหัสมาทางข้อความ เดี่ยวผมไปทำให้คับ

[nousinh]

พอดีผมไม่ได้ใช้โปรแกรมTreamviewer. ผมก็ดาวน์โหลดไฟล์ที่พี่แนบมาแล้วนะครับแต่มันเปิดมาก็เป็นแบบที่ผมส่งให้พี่ดูหะครับ. ผมก็ไม่รู้ว่าเป็นเพาะอะไร

[ปิ่นณรงค์]

ลองตั้งค่า เปิดใช้ Macro VBA ตามนี้ดูครับว่าได้ไหม
https://www.ugetproject.com/wp/ms-office-access/ตั้งค่าให้vbaทำงาน.html

อีกอย่างคือ ผมสร้างโปรแกรมตัวนี้ ด้วยการตั้งค่า Location เป็นไทย ถ้าท่านตั้งเป็นที่อื่นต้องแก้เป็นไทยให้เหมือนกัน
วิธีแก้กดที่ RUN > intl.cpl > administrative > language for non-Unicode programs > change system locale

[nousinh]

มีวิธีอื่นอีกไหมครับพี่พอดีผมทำแล้วแต่มันก็ยังไม่ได้ครับ