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

[ekppom]

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

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

[ปิ่นณรงค์]

ใช้การตรวจสอบค่าจาก 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

[ekppom]

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