Import multiple txt files acces 2003

[soli004]

Hello forum,

I have this code and it is not working for me, the error is like "Can not import this table". What can be wrong?

I activate the Sub via form with button

I am a new to access coming from excel so not very experienced user.

Need this to work as I have 400 txt files all with the same structure

Thanks

Sub ImportMultipleFiles() 
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
 
' Change this next line to True if the first row has Field names
blnHasFieldNames = True
 
' Replace C:\Documents\ with the real path to the folder that
' contains the files to import
strPath = "C:\UA\Imported\"
 
' Replace tablename with the real name of the table into which
' the data are to be imported
strTable = "UA_Test"
 
strFile = Dir(strPath & "*.txt")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferText acImportDelim, strTable, _
strPathFile, blnHasFieldNames


 
strFile = Dir()
Loop
 
End Sub

[ssanfu]

The syntax for the TransferText command is

DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename][, codepage]

You do not have an "specificationname", so you need two commas between the transfer type and the table name.
Try

DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames

[soli004]

Thanks, I hope it solve the problem. I will check tomorrow, if not I will upload samplefiles!

Thanks for the check!

Regards

The syntax for the TransferText command is

DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename][, codepage]

You do not have an "specificationname", so you need two commas between the transfer type and the table name.
Try

DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames

[soli004]

That did the work! "," was missing

Thanks