Looping Through Tables in Access? 1

[Phoenix22]

Hi,

Could someone please tell me the VBA code I could use to loop through a series of tables of Access? Thank you in advance for your time and help.

 

[PHV]

Take a look at AllTables

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[fabby1]

Hi Phoenix

This snippet look throught all the tables in your database, and in my case deletes a table called HRLOG1. Hope this helps.

Dim dbs_Current As Database
Dim Table_Exist As TableDef

Set dbs_Current = CurrentDb

With dbs_Current
  Set Table_Exist = .CreateTableDef()

  For Each Table_Exist In .TableDefs
       Debug.Print "  " & Table_Exist.Name
     If Table_Exist.Name = "HR_LOG1" Then
        Me!Text_Box.Visible = True
        Me!Text_Box = "Deleted Existing Table..........."
        Me.Repaint
        .TableDefs.Delete "HR_LOG1"
        End If
  Next Table_Exist
End With