ผมสร้างรายงานที่ใช้ข้อมูลจาก Crosstab Query เพื่อดึงข้อมูลให้รายงานออกเป็นช่วงเวลา โดยการสร้างฟอร์มเปล่าสำหรับกรอกวันเริ่มและวันสุดท้าย โดยสร้างคอนโทรล เป็น StartDate ,EndDate และกำหนด Formate เป็น Date/time

ใน Crosstab Query ที่นำมาใช้ ผมกำหนดพารามิเตอร์เป็น
[Forms]![ชื่อฟอร์ม]![StartDate] ชนิดข้อมูลเป็น Date/Time
[Forms]![ชื่อฟอร์ม]![EndDate] ชนิดข้อมูลเป็น Date/Time
และกำหนด Criteria เป็น Between [Forms]![ชื่อฟอร์ม]![StartDate] And [Forms]![ชื่อฟอร์ม]![EndDate]

ในฟอร์มเปล่าที่สร้างขึ้น ผมสร้างปุ่มคำสั่งเพื่อเปิดรายงานฝังโค๊ดในเหตุการณ์ On Clickโดยเขียนโค๊ด ดังนี้


Private Sub CommandOpenRpt_Click()
Dim stDocName As String
Dim accobj As AccessObject

On Error GoTo Err_CommandOpenRpt_Click

stDocName = "ชื่อรายงาน"
   
       
Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
If accobj.IsLoaded Then
    If accobj.CurrentView = acCurViewPreview Then
        DoCmd.Close acReport, stDocName
        DoCmd.OpenReport stDocName, acPreview
    End If
Else
          DoCmd.OpenReport stDocName, acPreview
End If

    
Exit_CommandOpenRpt_Click:
   Exit Sub

เสร็จแล้วลองกรอกวันเริ่มและวันสุดท้าย ผลปรากฎว่าแรก ๆ ที่เริ่มกรอก รายงานสามารถแสดงได้ แต่พอกำหนดช่วงเวลาใหม่ โดยวันเริ่มต้นเพิ่มขึ้นจากเดิมอีกประมาณ 20 วัน (ข้อมูลประมาณ 80 reccord) จะไม่สามารถแสดงรายงานได้ Access จะแสดง Error ว่า กลไกจัดการฐานข้อมูลของ Microsoft Office Access ไม่รู้จัก " ว่าเป็นชื่อเขตข้อมูลหรือนิพจน์ที่ถูกต้อง

รบกวนท่านอาจารย์และผู้เชี่ยวชาญทุกท่านช่วยชี้แนะแก้ไขด้วยครับ ขอขอบคุณล่วงหน้าครับ