unction SalesOrderDetail()
'On Error GoTo ASN_Error
'*** IMPORT FUNCTION - START ***
Dim DDate, strfile As String
Dim LMsg As String
Dim DDDate As Date
DoCmd.SetWarnings False
'** Step 1 -- Define where and what naming sequence the files are.
ChDir ("K:\Teams and Projects\Operations-Common\SpeedDB")
strfile = Dir("K:\Teams and Projects\Operations-Common\SpeedDB\Sales Order Detail.CSV")
Do While Len(strfile) > 0
DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, "SalesOrders Import Specification", "SalesOrders", "K:\Teams and Projects\Operations-Common\SpeedDB" & strfile, True
'Kill "K:\Teams and Projects\Operations-COmmon\SpeedDB" & strfile
FileCopy "K:\Teams and Projects\Operations-Common\SpeedDB" & strfile, "K:\Teams and Projects\Operations-Common\592 History" & strfile
DoCmd.SetWarnings True
'** Step 7 -- Reset the "strfile", which looks for any other files to import, and restart loop.
strfile = Dir
Loop
Call VerifyImportErrorTables
DoCmd.SetWarnings True
End Function
I have Highlighted in red where my issue is. I am having trouble finding the Specification Name "SalesOrders Import Specifications" . I am not sure where to look for this. I went to this link earlier and have not had any luck. https://msdn.microsoft.com/en-us/lib.../ff835958.aspx
Any help would be appreciated.
Thanks,
Nick