DROP TABLE T1

Public Sub copyTable(t_name As String, Optional t2_name As String = "copy_") 'копирование пустой таблицы с полями
Dim db As Database, tbl As TableDef, tbl2 As TableDef, fld As Field, prp As Property, prp2 As Property

On Error GoTo err1

Set db = CurrentDb
Set tbl = db.TableDefs(t_name)
Set tbl2 = db.CreateTableDef(t2_name & t_name)

For Each fld In tbl.Fields
  tbl2.Fields.Append tbl2.CreateField(fld.Name, fld.Type, fld.Size)
Next fld

db.TableDefs.Append tbl2

On Error Resume Next

With tbl2.Fields(fld.Name)

  For Each fld In tbl.Fields
    For Each prp In fld.Properties
      .Properties.Append .Properties(prp.Name)
      .Properties(prp.Name).Value = prp.Value
      .Properties(prp.Name).Type = prp.Type
      For Each prp2 In prp.Properties
        .Properties(prp.Name).Properties.Append .Properties(prp.Name).Properties(prp2.Name)
        .Properties(prp.Name).Properties(prp2.Name).Type = prp.Properties(prp.Name).Type
        .Properties(prp.Name).Properties(prp2.Name).Value = prp.Properties(prp.Name).Value
      Next prp2
    Next prp
  Next fld

End With

Exit Sub

err1:
If Err.Number = 3010 Then Resume Next

MsgBox Err.Number & vbLf & Err.Description, vbCritical, "Копирование пустой таблицы"

End Sub