mailman ok so nearly final product on this code.
Public Function SALES(Journal As String)
FileCopy Journal, "C:\TFRS REPORTS\AJ1.CSV"
Name Journal As Left(Journal, 21) & "old"
DoCmd.TransferText acImportDelim, "aj1import", "tblAJLTEMP", "C:\TFRS REPORTS\AJ1.CSV"
Dim db As DAO.Database
Dim...