TopPicLogo TopPicText

Удаление Поля из Таблицы

Public Sub DelTableField(sTableName$, sFieldName$)
'Удаление поля из ЛОКАЛЬНОЙ таблицы по аргументам ...
'--------------------------------------------------------------------------
Dim s$
On Error GoTo DelTableField_Err
    s = "ALTER TABLE " & sTableName & " DROP COLUMN " & sFieldName
    CurrentDb.Execute s

DelTableField_Bye:
    Exit Sub

DelTableField_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: DelTableField", vbCritical, "Error in module Module1"
    Resume DelTableField_Bye
End Sub

Назад ToTop
L.E. 06.08.2016
Рейтинг@Mail.ru