รูปรายงาน

ทำไรเป็นมั่งครับ...
คำถามถามง่าย แต่ต้องตอบยาวเลยครับ... เกรงว่าจะไม่มีคนมาช่วยตอบหนะครับ

ทำไรเป็นบ้างหรอครับ ไม่แน่ใจครับ เพราะส่วนมากผมก็ศึกษาจากในบอร์ดนี้นะครับ ถ้าสงสัยคำสั่งไหน ก็จะหาเอาในบอร์ดนะครับ แต่ถ้าไม่มีค่อยตังคำถามเอานะครับ

.ตอนนี้ผมติด ข้อ 2 นะครับ

ผมใช้โค้ดตัวนี้ ไม่ทราบว่าใส่เงือนไขถูกหรือเปล่า

'Select Case Forms![Timefic]![Frame0]
'Case 1
'    strSQL = strSQL & "[TIMEOUT] like ""*"""
'    DoCmd.OpenReport "Timefic", acViewReport
    
'Case 2
'     strSQL = strSQL & " AND [TIMEOUT] > [TIMEFIC]"
'     DoCmd.OpenReport "Timefic", acViewReport, , strSQL
    
     
'    Exit Sub
'End Select

รบกวนแนะนำด้วยนะครับ

ขอบคุณครับ

อ๋อใช้ filter ของ report หรือเปล่าครับ...
แล้วมันออกหรือเปล่าหละครับ ผมว่าไม่น่าออก

แต่อาจใช้เป็นการ set recordsource ของ report ได้ครับ...
แต่ผมทำไม่เป็น ไม่รู้ Set Record source ของ report ตอนเปิดอย่างไร
รอท่านอื่นมาตอบ

หมายเหตุ: เคยใช้แต่วิธีให้ report link กับ query แล้วค่อยไปเปลี่ยนเงื่อนไขใน query เอา ... ถ้าไม่มีใครตอบเด๋วมาตอบให้ครับ

รบกวนด้วยนะครับ

ถ้าไม่มีใครตอบ... ก็ลองตามนี้ครับ
ให้ไปที่ record source ของ Report
และแก้ตรง Where เป็น
[TIMEOUT] > iif(Forms![Timefic]![Frame0] = 1,0, [TIMEFIC] )

ตัวอย่าง
Select xxx FROM Tablexxx Where [TIMEOUT] > iif(Forms![Timefic]![Frame0] = 1,0, [TIMEFIC] )

ขอบคุณคุณแดนมากครับ

และต้องขอโทษด้วยครับ ที่บอกข้อมูลผิด ที่จริงแล้วผมทำ Report จากคิวรี่ครับ

แก้ไขตรง record source แล้วได้
SELECT JOB.* FROM JOB WHERE [TIMEOUT]>IIf(Forms!Timefic!Frame0=1,0,[TIMEFIC]);

เมื่อดับเบิ้ลคลิกที่ report จะขึ้นบล๊อค


ผมลองใส่ค่า 0-5 ก็เปิด report แต่แสดงทั้งหมดครับ


แล้วไม่ทราบว่าผมต้องไป ใส่โค้ดตรงปุ่มกดยังไงครับ
เพราะว่าโค้ดข้างบน ผมลองแล้วไม่ได้ครับ


รบกวนแนะนำด้วยนะครับ

ขอบคุณครับ

ตรงปุ่มกดไม่ต้องใส่อะไรแล้วครับ....

...ไม่แน่ใจเหมือนกันว่าทำไมถึงถามอีก ได้เปิดฟอร์มอยู่หรือเปล่าครับ ตอนเปิด report ลองเรียก report จากปุ่ม preview report ที่สร้างไว้สิครับว่าขึ้นไหม

เอ... ก็ออกนี่ครับ ผมอุตสาห์ลงทุน ไปสร้างฟอร์ม สร้าง report เรียนแบบ แล้วลองเรียกดู ก็ไม่เห็นจะติดเลยนี่ครับ... ตอนที่เรียก report เปิด Form ไว้อยู่หรือเปล่าครับ... ชื่อ Form ชื่อ Field ที่อ้างอิงตรวจสอบแล้วถูกต้องใช่ไหมครับ

จากกดที่ปุ่ม
ถ้าเลือก อันแรก จะเปิดรายงานทั้งหมดได้ครับ
แต่ถุ้าเลือกอันที่ 2 ก็จะเปิดรายงานทั้งหมดเหมือนอันแรกเลยครับ

แต่ที่อยากได้คือให้แสดง แต่ รายงานที่เลยกำหนด ที่เป็นสีแดงนะครับ

โค้ดที่ใช้ จะ error ที่ case 2 ครับ ตรงที่ใส่ ' กันไว้



Private Sub cmdchoice_Click()
Dim strSQL As String


srtSQL = "[TIMEOUT] Like '*'"


Select Case Forms![Timefic]![Frame0]
Case 1
    strSQL = strSQL & "[TIMEOUT] like ""*"""
    DoCmd.OpenReport "Timefic", acViewReport
    
Case 2
    ' strSQL = strSQL & " AND [TIMEOUT] > [TIMEFIC]"
     DoCmd.OpenReport "Timefic", acViewReport, , strSQL
    
     
    Exit Sub
End Select
End Sub


ช่วยดูให้หน่อยนะครับ

ขอบคุณครับ

ขอโทษด้วยครับ ตอนนี้ได้แล้วครับ

Private Sub cmdchoice_Click()

Select Case Forms![Timefic]![Frame0]
Case 1
   
    DoCmd.OpenReport "Timefic", acViewReport
    
Case 2

     DoCmd.OpenReport "Timefic", acViewReport
    
End Select
End Sub

ขอบคุณ คุณแดนมากครับที่แนะนำและบอกวิธีให้ ครับ