Private Sub cmdCopyTable_Click()
Dim tdf As DAO.TableDef
Dim Temp As String
For Each tdf In CurrentDb.TableDefs
If Len(tdf.Connect) > 0 Then
Temp = tdf.Name
DoCmd.RunSQL "Select * into [" & tdf.Name & "_New] From [" & tdf.Name & "]"
DoCmd.RunSQL "Drop table [" & tdf.Name & "]"
DoCmd.Rename Temp, acTable, Temp & "_New"
End If
Next
End Sub