great! want to try something else?

do you remember what you named your
original export specification (it would
be in tblSaveIMEX.SpecName)?

you created 2 tables earlier using
following queries:

SELECT
M.Attributes,
M.DataType,
M.FieldName,
M.IndexType,
M.SkipColumn,
M.SpecID,
M.Start,
M.Width
INTO
tblSaveIMEXColumns
FROM
MSysIMEXColumns AS M
ORDER BY
M.SpecID,
M.Start;

SELECT
I.DateDelim,
I.DateFourDigitYear,
I.DateLeadingZeros,
I.DateOrder,
I.DecimalPoint,
I.FieldSeparator,
I.FileType,
I.SpecID,
I.SpecName,
I.SpecType,
I.StartRow,
I.TextDelim,
I.TimeDelim
INTO
tblSaveIMEX
FROM
MSysImexSpecs AS I;

Add a field to  "tblSaveIMEXColumns"
   '"RightAlign" Yes/No, default 0

then change RightAlign to -1
   for column(s) wanted right-aligned

then, paste following code into
your module:

'***start code***
Public Function fExportSpec(pPath As String, _
                           pQryName As String, _
                           pSpec As String) As Boolean
On Error GoTo Err_fExportSpec
   Dim strPath As String
   Dim rstQry As DAO.Recordset
   Dim rstSpec As DAO.Recordset
   Dim strSQL As String
   Dim hFile As Long
   Dim strTextLine As String
   Dim strFldName As String
   Dim lngWidth As Long
   Dim varCurFld As Variant

   'test example:
   'to save "qryTestExport"
   'to file "C:\newxx.txt"
   'using Export Specification "testspec"
   '
   'in Immediate Window, type
   '?fexportspec("C:\newxxx.txt","qryTestExport","testspec")

   'NOTE: Code below does not test for valid parameters!
   '      Probably good idea to add that.
   '
   strPath = pPath

   Set rstQry = CurrentDb.OpenRecordset(pQryName, dbOpenSnapshot)

   strSQL = "SELECT C.FieldName, C.Start, C.Width, RightAlign " _
           & "FROM tblSaveIMEX AS I " _
           & "INNER JOIN tblSaveIMEXColumns AS C " _
           & "ON I.SpecID = C.SpecID " _
           & "WHERE i.SpecName = '" & pSpec & "' " _
           & "ORDER BY C.Start"
   Set rstSpec = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

   'First get a new file handle
   hFile = FreeFile

   'Open the strPath to write the text
   Open strPath For Output As hFile

   With rstQry
       .MoveFirst

       Do While (Not .EOF)
           strTextLine = ""
           'collect field values into strTextLine
           'in order/width per IMEX Spec;
           'left-align all but field(s)
           'where wanted RightAlign
           With rstSpec
               .MoveFirst
               Do While Not .EOF
                   strFldName = !FieldName
                   lngWidth = !Width
                   varCurFld = rstQry(strFldName)
                   If !rightalign = 0 Then
                       varCurFld = Left(varCurFld _
                             & Space(lngWidth), lngWidth)
                   Else
                       varCurFld = Right(Space(lngWidth) _
                               & varCurFld, lngWidth)
                   End If
                   strTextLine = strTextLine & varCurFld
                   .MoveNext
               Loop

           End With

           'print the collected string to textfile
           Print #hFile, strTextLine

           'get next record
           .MoveNext
      Loop

   End With

   Close hFile    ' Close file.

   rstQry.Close
   rstSpec.Close

   fExportSpec = True

Exit_fExportSpec:
   Set rstQry = Nothing
   Set rstSpec = Nothing
   Reset
   Exit Function

Err_fExportSpec:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_fExportSpec
End Function
'***end code***

save and compile.

Create a new form
(click on "Create form in Design View")

Add a command button to close the
form using wizard...
(select command button icon in toolbar,
double-click on form,
in wizard, choose
Form Operations/Close Form,
click Next,
choose Text radio button,
click Next,
type in "cmdClose" for meaningful name,
then click Finish)

While your new command button
is selected, in upper menu

Edit/Duplicate

Right-mouse click on new button
and choose "Properties"

Under "All" tab, change Name and Caption

Name ....cmdExportAP
Caption..Export AP to Text File

further down in Properties,
double-click in white space
beside "On Click"

you should now have "[Event Procedure]"
in white space, with little box to the right
of the white space.

click on that box (with 3 dots)

You now should be in VBA window
with cursor blinking in middle of

Private Sub cmdExportAP_Click()

End Sub

"in the middle," paste following code

'***start code***
On Error GoTo Err_cmdExportAP_Click
   Dim varResponse As Variant
   Dim strMsg As String
   Dim strPath As String
   Dim strQryName As String
   Dim strSpec As String

   strMsg = "Do you wish to export AP Pmts to text file?"
   varResponse = MsgBox(strMsg, vbOKCancel)
   If varResponse = vbCancel Then
       ' User chose to Cancel
       MsgBox "You chose to cancel export."
       GoTo Exit_cmdExportAP_Click
   Else
       'do it
       strMsg = "Please enter full export path " _
               & "and filename (C:\xxx.txt)"
       strPath = InputBox(strMsg, "Export", strPath)

       strQryName = "AP Payment Export"
       strSpec = "??????"

       'run export
       If fExportSpec(strPath, strQryName, strSpec) = True Then
           MsgBox "Successfully exported to " & strPath
       Else
           MsgBox "Export Failed!"
       End If

   End If

Exit_cmdExportAP_Click:
   Exit Sub

Err_cmdExportAP_Click:
   MsgBox Err.Description
   Resume Exit_cmdExportAP_Click
'***end code***

replace "??????" with actual name of spec in line

       strSpec = "??????"

Save and compile.

Save form and open, click on button.

Now you know how to add this button
to any form (I assume you don't really
need this separate form).