SELECT SupplierStockCodeOnly([ProductCode],[SupplierStockCodeReference],[SupplierStockCodeReferencePositionId]) AS [Item Code], qryReportSupplierOrderProducts.SumOfQuantity AS Quantity
FROM tblSupplier INNER JOIN ((tblProduct INNER JOIN qryReportSupplierOrderProducts ON tblProduct.[ProductId] = qryReportSupplierOrderProducts.[ProductId]) INNER JOIN tblSupplierPurchaseOrderResale ON qryReportSupplierOrderProducts.[SupplierPurchaseOrderResaleId] = tblSupplierPurchaseOrderResale.[SupplierPurchaseOrderResaleId]) ON (tblSupplier.[SupplierID] = tblSupplierPurchaseOrderResale.[SupplierPurchaseOrderSupplierId]) AND (tblSupplier.[SupplierID] = tblProduct.[SupplierId])
WHERE (((tblSupplierPurchaseOrderResale.SupplierPurchaseOrderResaleId)=[Forms]![frmPrintSupplierOrderResaleProducts]![intOrderId]));

DoCmd.TransferText acExportDelim, , "MyQueryName", "C:\Folder\File.csv"

DoCmd.TransferText acExportDelim, "MySpecification", "MyQueryName", "C:\Folder\File.csv"

Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim intFile As Integer
Dim strBuffer As String
  
  Set qdf = CurrentDb.QueryDefs("MyQuery")
  For Each prm in qdf.Parameters
    prm.Value = Eval(prm.Name
  Next prm
  Set rs = qdf.OpenRecordset
  
  intFile = FreeFile()
  Open "C:\Folder\File.csv" As #intFile
  While rs.EOF = False
    strBuffer = vbNullString
    For Each fld In rs.Fields
      strBuffer = strBuffer & fld.Value & ","
    Next fld
    strBuffer = Left$(strBuffer, Len(strBuffer) - 1)
    Print #intFile, strBuffer
    rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
  Set fld = Nothing
  Set prm = Nothing
  Set qdf = Nothing
  Close #intFile

Public Enum agpSelectObjectType
    agp_TableName
    agp_SelectSQLString
    agp_QueryDefinitionName
End Enum

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Procedure : SelectToText
'
' Parameters:
'
'   strAny              Can be name of a Query, Table Name or a Select Statement
'   varType             One of the type in the private enum.
'   strPathAndFileName  Full path and name of file you want to save the export
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SelectToText(strAny As String, varType As agpSelectObjectType, strPathAndFileName As String)
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim sSql As String
    Dim strA As String
    'Dim fso As New Scripting.FileSystemObject
    'Dim txtFile As Scripting.TextStream
    Dim fso As Object
    Dim txtFile As Object


    On Error GoTo SelectToText_Error

    Select Case varType
    Case Is = SelectObjectType.agp_TableName
        sSql = "Select * From " & strAny & ";"

    Case Is = SelectObjectType.agp_QueryDefinitionName
        sSql = CurrentDb.QueryDefs(strAny).SQL

    Case Else
        sSql = strAny

    End Select

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set cn = CurrentProject.Connection

    'Fires the query and then writes the output to a flat text file
    'pipe delimeted
    rst.Open sSql, cn

    ' get the Column Header
    For i = 0 To rst.Fields.Count - 1
        strA = strA & rst.Fields(i).Name & vbTab
    Next
    strA = Left(strA, Len(strA) - 1) & vbCrLf

    Set txtFile = fso.CreateTextFile(strPathAndFileName, True)

    'Write the Header (Column Name)
    txtFile.Write (strA)

    'Write the Data (rows)
    txtFile.Write (rst.GetString(adClipString, , vbTab, _
                                 vbCrLf, ""))

    Set txtFile = Nothing
    Set rst = Nothing
    Set cn = Nothing
    Set fso = Nothing

    On Error GoTo 0
    Exit Sub

SelectToText_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SelectToText of Module Module6"
End Sub

  Open "C:\Folder\File.csv" For Output As #intFile