สมัครสมาชิก
 

ต้องการเปิดรายงานแบบเลื่อกข้อมูลในกล่องคำสั่งครับ



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

07 มี.ค. 62 , 12:25:28
อ่าน 75 ครั้ง

ekppom

รบกวนอาจารย์ครับ
พอดีผมเคยเห็นวิธีการทำในเว็บบอร์ดนี้เป็นปีได้แล้วแต่ผมพยายามหาแล้วไม่เจอเลย รบกวนอาจารย์แนะนำหน่อยนะครับ
ชื่อตาราง tblRCReport
ชื่อฟอร์มเลือกรายการ RptAdd
ชื่อReportสำหรับเปิดรายงานมี3Reportประกอบด้วย
-Fadd
-FAddCompany
-FAddDetialCompany

ผมต้องการเลือกรายงานที่จะแสดงซึ่งมี3รายงาน โดยเลือกรายงานที่1ก็จะเปิดReport add หากเลือกรายงานแบบที่2ก็จะเปิดReport FAddCompany หากเลืือกรายงานแบบที่3ก็จะเปิดReport FAddDetialCompany ผมควรเขียนโค้ดที่ปุ่มตกลงอย่างไรครับ


 

07 มี.ค. 62 , 12:44:46
ตอบกลับ #1

ปิ่นณรงค์

ใช้การตรวจสอบค่าจาก Combobox แล้ว ใช้อ้างอิงกับชื่อรายงานใน ตาราง tblRCReport ที่ Field ReportName ครับ
1.ที่ RowSource กำหนดเป็น SELECT tblRCReport.ID, tblRCReport.ReportDescription FROM tblRCReport;
2. ที่ BoundColumn(คอลัมน์ที่ผูกไว้) กำหนดเป็น 1
3. ตรง Column Width(ความกว้างคอลัมน์) กำหนดเป็น 0ซม.;10ซม.
4. ตรง Event AfterUpdate ของ Combo1 ใส่โค้ดดังนี้คับ

โค๊ด: [Select]
Private Sub Combo1_AfterUpdate()
Dim SetReportName As String
SetReportName = DLookup("ReportName", "tblRCReport", "ID=" & Me.Combo1 & "")
DoCmd.OpenReport SetReportName, acViewReport
End Sub
« แก้ไขครั้งสุดท้าย: 07 มี.ค. 62 , 13:05:52 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: ekppom

07 มี.ค. 62 , 13:55:13
ตอบกลับ #2

ekppom

ขอบคุณอ.ปิ่นณรงค์เป็นอยากมากครับ

 


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