ปุ่ม Export นี่เป็นปุ่มที่สร้างเองใช่ไหมครับ มีคำสั่งเขียนไว้ว่ายังไงบ้าง แล้วคิวรี่ที่สร้างนี่ให้ผลลัพธ์ออกหน้าจอตามต้องการแล้วหรือยัง ช่วยแสดง SQL statement ของคิวรี่นี้ให้ดูหน่อย

คำสั่งของปุ่ม Export
rivate Sub Command97_Click()
On Error GoTo Command97_Click_Err

    DoCmd.OutputTo acOutputForm, "data_InOut", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint


Command97_Click_Exit:
    Exit Sub

Command97_Click_Err:
    MsgBox Error$
    Resume Command97_Click_Exit

End Sub


คิวรี่สร้างนี่ให้ผลลัพธ์ออกหน้าจอตามต้องการ
SELECT Format([CHECKTIME],'dd/mm/yyyy') AS [DATE],
USERINFO.Name, Format([CHECKTIME],'hh:nn:ss') AS CHECK_Time,
CHECKINOUT.CHECKTYPE
FROM USERINFO LEFT JOIN CHECKINOUT ON USERINFO.USERID = CHECKINOUT.USERID
WHERE (((CHECKINOUT.CHECKTYPE) In ("I","O")) AND ((CHECKINOUT.CHECKTIME)>=[cboStr] And (CHECKINOUT.CHECKTIME)<=[cboEnd]));



ปล.ผมใช้ Combobox ในการควบคุมการค้นหาเพื่อเลือกข้อมูลที่จะ Export ออกไป โดยใช้ Event Build code

ลองเปลี่ยนให้เป็นคำสั่ง

DoCmd.OutputTo acOutputForm, "data_InOut", acFormatXLS, "ชื่อไฟล์.xls"

หรือจะถ่ายข้อมูลออกจากคิวรี่โดยตรงก็ได้ ด้วยคำสั่ง
DoCmd.TransferSpreadsheet acExport, , "ชื่อคิวรี่", "ชื่อพาธ+ไฟล์"
แต่ในตัวคิวรี่ที่อ้างถึง cboStr และ cboEnd ก็ต้องเขียนให้เต็มรูปว่ามาจากฟอร์มไหนด้วย เป็น Forms!ชื่อฟอร์ม!cboStr/cboEnd