Private Sub Command4_Click()

'Создание поля и установка его свойств
On Error GoTo Err1

Static intFieldNumber As Integer

'Проверка на ввод имени поля

    If Text1.Text = Empty Then
            MsgBox "Введите имя поля.", vbExclamation, "Создание Баз Данных"
            Text1.SetFocus
            Exit Sub
            Else
            'Проверка на ввод размера поля
            If varTypeField = dbText Then
                If Combo1.Text = Empty Then
                    MsgBox "Введите размер поля.", vbExclamation, "Создание Баз Данных"
                    Exit Sub
                End If
            End If
    End If
intFieldNumber = intFieldNumber + 1

'Создаем поле
Set F(intFieldNumber) = NewTbl.CreateField()
'Устанавливаем свойства поля...
'...имя поля
F(intFieldNumber).Name = Text1.Text
'...тип поля
F(intFieldNumber).Type = varTypeField
'...размер поля
If varTypeField = dbText Then
F(intFieldNumber).Size = intSizeField
End If
'Устанавливаем атрибуты поля
If varAttrib <> Empty Then
    F(intFieldNumber).Attributes = varAttrib
End If
'Устанавливаем свойства полей
If bBack = True Then
    'Устанавливаем свойство AllowZeroLength
    If intOptIndex = 5 Or intOptIndex = 6 Then
       F(intFieldNumber).AllowZeroLength = bAllZ
    End If
    'Устанавливаем свойство Required
    F(intFieldNumber).Required = bReq
    'Устанавливаем свойство DefaultValue
    If strDefVal <> Empty Then
            F(intFieldNumber).DefaultValue = strDefVal
            
    End If
    'Устанавливаем свойство ValidationRule
    If srtValid1 <> Empty Then
            F(intFieldNumber).ValidationRule = "[" & strValid & "]" & srtValid1
    End If
    'Устанавливаем свойство ValidationText
    If strValidTxt <> Empty Then
            
            F(intFieldNumber).ValidationText = strValidTxt
    End If
End If
    
'Добавляем созданное поле к таблице
NewTbl.Fields.Append F(intFieldNumber)
If varTypeField = dbText Then
        MsgBox "Вы создали поле '" & Text1.Text & "' , типа '" _
        & strTypeField & "', размер поля - " & intSizeField & vbCrLf _
        & "Созданное поле добавлено к таблице '" _
        & varTblName & "'.", vbInformation, "Создание Баз Данных"
    Else
    MsgBox "Вы создали поле '" & Text1.Text & "' , типа '" _
    & strTypeField & "'" & vbCrLf _
    & "Созданное поле добавлено к таблице '" _
    & varTblName & "'.", vbInformation, "Создание Баз Данных"
End If

If intOptIndex = 5 Then
        Step4
    Else
    Text3.Text = Text1.Text
    EnableStep4
End If
Command5.Enabled = True
Text1.Text = Empty
Text1.SetFocus
Combo1.Text = Empty
Option1(0).Value = True
Command7.Enabled = True
Check1.Value = 0
Check2.Value = 0
Check2.Enabled = True

strDefVal = Empty
strValid = Empty
strValidTxt = Empty
srtValid1 = Empty

Exit Sub

Err1:

Select Case Err.Number
        Case 3259
        MsgBox "Неверно описано поле.", vbExclamation, "Создание Баз Данных"
        Exit Sub
End Select

End Sub