---

Sub CreateFriendsTableStep6()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property

    Set db = CurrentDb()

    On Error Resume Next
    db.TableDefs.Delete "Друзья"
    On Error GoTo 0

    Set tdf = db.CreateTableDef("Друзья")

    Set fld = tdf.CreateField("№ п/п", dbLong)
    fld.Attributes = dbAutoIncrField
    tdf.Fields.Append fld

    tdf.Fields.Append tdf.CreateField("Фамилия", dbText, 50)
    tdf.Fields.Append tdf.CreateField("Имя", dbText, 50)
    tdf.Fields.Append tdf.CreateField("Адрес", dbText, 255)
    tdf.Fields.Append tdf.CreateField("Индекс", dbLong)

    Set fld = tdf.CreateField("Телефон", dbText, 16)
    tdf.Fields.Append fld

    tdf.Fields.Append tdf.CreateField("Хобби", dbText, 50)

    Set fld = tdf.CreateField("Эл_почта", dbMemo)
    fld.Attributes = dbHyperlinkField
    tdf.Fields.Append fld

    db.TableDefs.Append tdf

    Set fld = tdf.Fields("Телефон")
    On Error Resume Next
    fld.Properties("InputMask") = """+7"" 000"" ""000"" ""00"" ""00;0;"
    If Err.Number = 3270 Then
        Set prp = fld.CreateProperty("InputMask", dbText, """+7"" 000"" ""000"" ""00"" ""00;0;")
        fld.Properties.Append prp
    End If
    On Error GoTo 0
End Sub