Import newly created .dbf files to MS ACCESS

[Wayne L]

I am trying to import .dbf files to ACCESS. The files all start with "QB" and then Numbers ie.. QB0001, QB0002. I am getting the files in but the code I have changes the name to the first file in the dir and increments all others from that file name. I am new to the coding game and need help on this one.

Private Sub_Import() 
  Dim strPath As String 
  Dim strTableName As String 
  Dim strFileName As String 
  Dim dbs As Database 
 
  Set dbs = CurrentDb 
  strPath = "C:\NEWFOLDER\" 
   strTableName = Dir(strPath) . 
   strFileName = Dir(strPath & QB*.dbf") ' Retrieve the first entry file name. 
     Do While strFileName <> "" ' Start the loop. 
     DoCmd.TransferDatabase acImport, "dBase IV", strPath,, strFileName, 
strTableName, False 
   strFileName = Dir  
   Loop 
End Sub

[nico5038]

I am trying to import .dbf files to ACCESS. The files all start with "QB" and then Numbers ie.. QB0001, QB0002. I am getting the files in but the code I have changes the name to the first file in the dir and increments all others from that file name. I am new to the coding game and need help on this one.

Private Sub_Import() 
  Dim strPath As String 
  Dim strTableName As String 
  Dim strFileName As String 
  Dim dbs As Database 
 
  Set dbs = CurrentDb 
  strPath = "C:\NEWFOLDER\" 
   strTableName = Dir(strPath) . 
   strFileName = Dir(strPath & "QB*.dbf") ' Retrieve the first entry file name. 
     Do While strFileName <> "" ' Start the loop. 
     DoCmd.TransferDatabase acImport, "dBase IV", strPath,, strFileName, 
strTableName, False 
   strFileName = Dir  
   Loop 
End Sub

Not sure what your objective is. Besides a missing " before the QB*.dbf", all code look OK to me.
When you want each QB file to be stored into a different table, then use the strFilename (without .dbf) also for the tablename in the Docmd:

   strFileName = Dir(strPath & QB*.dbf") ' Retrieve the first entry file name. 
     Do While strFileName <> "" ' Start the loop.  
     DoCmd.TransferDatabase acImport, "dBase IV", strPath,, strFileName, 
Replace(strFileName,".dbf",""), False 
   strFileName = Dir  
   Loop 
End Sub

Nic;o)