ค้นหา ข้อมูลได้แล้วต้องการ Export to Excel
จากFunction BuildFilter
Private Sub btnSearch_Click()
Dim varWhere As Variant
varWhere = BuildFilter
If BuildFilter = "" Then
varWhere = ""
Else
varWhere = " WHERE " & BuildFilter
End If
      Me.StockAA.Form.RecordSource = "SELECT * FROM StockA " & varWhere
        Me.StockAA.Requery
             Text79 = DSum(javascript:InsTag(document.frmAddMessage.message,'[U]');"quantity", "StockA", BuildFilter)
             Text80 = DSum("weigth_p_unit", "StockA", BuildFilter)
              
End Sub
E
ต้องการ Export to Excel

จาก Code ข้างล่างนี้จะออกมา ทั้งหมด อยากให้ออกจากการค้นหา
ชี้แนะด้วยครับ
Private Sub Command60_Click()
DoCmd.TransferSpreadsheet acExport, , "StockA", "C:\Output\Output.xlsx", False
MsgBox ("Done!")