Delete tables with a certain string in their name?

I would like to delete all tables in my database that have the string
'_Importfouten' in their name.


Any suggestions no how to do this?
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/7532-delete-tables-certain-string-their-name.html


TIA,


Henro


*

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

Function KillTables()
Dim db As DAO.Database
Dim tdx As DAO.TableDefs
Dim i As Integer

Set db = CurrentDb()
Set tdx = db.TableDefs

For i = tdx.Count - 1 To 0 Step -1
If tdx(i).Name Like "*_Importfouten*" Then
Debug.Print "Deleting " & tdx(i).Name
tdx.Delete tdx(i).Name
End If
Next
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=7532
Tips for Access users - http://allenbrowne.com/tips.html
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=7532
Reply to group, rather than allenbrowne at mvps dot org.

"Henrootje" wrote in message
news:1132151901.363830.119990@o13g2000cwo.googlegr oups.com...
>I would like to delete all tables in my database that have the string
> '_Importfouten' in their name.

I am very happy with this!

Tenk joe! Henro