Make ImportError Tables go away

[Nathan H]

Is there a way to make it so Access does not create an import errors table if there are problems? I am handling import errors via another method, but these tables being auto generated are causing headaches, especially after several months they begin to stack up.

Thanks in advance

[Jim Doherty]

Is there a way to make it so Access does not create an import errors table if there are problems? I am handling import errors via another method, but these tables being auto generated are causing headaches, especially after several months they begin to stack up.

Thanks in advance

Hi Nathan,

You might want to consider looping through the table defs on opening of the database or some other 'relevant' point to determine if any exist and if so delete them. You can base the the logic for that on the table name having 'ImportErrors' contained in the name of the table to take into account the incremental naming nature of access for successive import errors.

 
Function DeleteImportErrors()
Dim DB As DAO.Database
Dim T As DAO.TableDef
Dim TName As String
Dim I As Integer
Set DB = CurrentDb()
For I = 0 To DB.TableDefs.Count - 1
     Set T = DB.TableDefs(I)
     TName = T.Name
     If InStr(TName, "ImportErrors") > 0 Then
     DoCmd.DeleteObject acTable, TName
     End If
Next I
End Function
 

Regards

Jim :)

[Nathan H]

Awesome! Thanks Jim...worked like a dream. I put it on the splash screen as on on open event so it will start fresh each session.

Thanks again!

[Jim Doherty]

Awesome! Thanks Jim...worked like a dream. I put it on the splash screen as on on open event so it will start fresh each session.

Thanks again!

You're welcome

Jim :)

[ADezii]

Is there a way to make it so Access does not create an import errors table if there are problems? I am handling import errors via another method, but these tables being auto generated are causing headaches, especially after several months they begin to stack up.

Thanks in advance

Dim tdf As DAO.TableDef
 
For Each tdf In CurrentDb.TableDefs
  If InStr(tdf.Name, "ImportErrors") > 0 Then
    CurrentDb.TableDefs.Delete tdf.Name
  End If
Next

[ADezii]

Hi Nathan,

You might want to consider looping through the table defs on opening of the database or some other 'relevant' point to determine if any exist and if so delete them. You can base the the logic for that on the table name having 'ImportErrors' contained in the name of the table to take into account the incremental naming nature of access for successive import errors.

 
Function DeleteImportErrors()
Dim DB As DAO.Database
Dim T As DAO.TableDef
Dim TName As String
Dim I As Integer
Set DB = CurrentDb()
For I = 0 To DB.TableDefs.Count - 1
     Set T = DB.TableDefs(I)
     TName = T.Name
     If InStr(TName, "ImportErrors") > 0 Then
     DoCmd.DeleteObject acTable, TName
     End If
Next I
End Function
 

Regards

Jim :)

Hello Jim, not trying to step on your toes, but just offering an alternative approach.

[Jim Doherty]

Hello Jim, not trying to step on your toes, but just offering an alternative approach.

Feel free Dez.....

For i believe that For each loop
.....there is a way lol :))
Neeeeext!!

Jim :)