LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA
























































02. Использование ALTER COLUMN в запросе SQL решит эту проблему

Все примеры Microsoft Access
Private Sub butExecute_Click()
Dim dbs As Database
    On Error GoTo 999
        CurrentDb.Execute _
           "ALTER TABLE [Пример 01] ALTER COLUMN [Описание] TEXT(" _
           & Me.fldSize & ")"
        MsgBox "Размер поля в таблице 'Примеры 01': " & vbCrLf & _
        Me.fldSize & " символов(а)", vbInformation, "Изменение поля"

    Exit Sub
999:
    MsgBox Err.Description, vbCritical, "Изменение поля"
    Err.Clear
End Sub