Recordset importing from second entry, not the first

[Skybeau73599]

I use the below code to cycle through entries in a table and import the corresponding CSV file into my Temp table in a database. The issue I'm having is that it starts with record number 2, instead of the first record.



My fields in the db are Path (eg C:\Form Downloader\25102015\ALFIE'S ROSE.csv) and FileName (eg ALFIE'S ROSE). Can anyone see where I'm going wrong? It also seems to be skipping records and not importing them as well.

Option Compare Database

Sub Import_Data_ListNamesA()


DoCmd.SetWarnings False
  
Dim d As DAO.Database
Dim r As DAO.Recordset
Dim intI As Integer
Dim LstFileNamesA As Field, Path As Field, FileName As Field
Set d = CurrentDb()
Set r = d.OpenRecordset("LstFileNamesA")
Set DogForm = r.Fields("Path")
Set DelErrorTable = r.Fields("FileName")
 
    While Not r.EOF
      
        DoCmd.SetWarnings False
        DoCmd.TransferText TransferType:=acDelim, TableName:="tbl_TEMP_A", FileName:=DogForm, HasFieldNames:=True
        On Error Resume Next
        DoCmd.DeleteObject acTable, DelErrorTable & "_ImportErrors"
        Err.Clear
        DoCmd.SetWarnings True
        r.MoveNext
        
    Wend
      
r.Close


DoCmd.SetWarnings True


MsgBox "Complete"


End Sub

[CJ_London]

you have hasfieldnames=true - perhaps you don't have fieldnames in your file

[John_G]

Your While-Wend loop doesn't look right - it is doing the exact same thing each time through - same table name, same file name. Surely you want to put the Set Dogform line inside the loop, so you use a different file each time.

[orange]

I don't see where DogForm is Dimmed --but I note you don't have Option Explicit turned on.

To check your loop, comment out the transfertext lines, use a message or debug.print something to ensure you are actually looping. That is, get the loop logic working before "doing the entire process".
For your own benefit, break the task into steps; test the steps--
Good luck