Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Automatically deleting error tables - help!
- Thread starter Sech
- Start date
This will delect all tables who's names end with "_ImportErrors"
Sub mDelete()
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
If Right$(tbl.Name, 13) = "_ImportErrors" Then
DoCmd.DeleteObject acTable, tbl.Name
End If
Next
db.Close
Set db = Nothing
End Sub
Sub mDelete()
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
If Right$(tbl.Name, 13) = "_ImportErrors" Then
DoCmd.DeleteObject acTable, tbl.Name
End If
Next
db.Close
Set db = Nothing
End Sub
- Status
Similar threads
- Locked
- Question
- Locked
- Question
