Dim dbs As dao.Database, tdf1 As dao.TableDef, tdf2 As dao.TableDef
Dim fld1 As dao.Field, fld2 As dao.Field, fld3 As dao.Field
Dim blX As Boolean
    Set dbs = CurrentDb
    Set tdf1 = dbs.TableDefs![т1]
    Set tdf2 = dbs.TableDefs![т2]
    For Each fld1 In tdf1.Fields
     blX = True
        For Each fld2 In tdf2.Fields
            If fld2.Name = fld1.Name Then
             blX = False
             Exit For
            End If
        Next fld2

         If blX = True Then
                Set fld3 = tdf2.CreateField(fld1.Name)
                fld3.Type = fld1.Type
                On Error Resume Next
                fld3.Size = fld1.Size
                On Error GoTo  0 
                tdf2.Fields.Append fld3
         End If
       
    Next fld1