Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Силblч
хз я так делал :)

'-- будем дописывать по мере надобности :)
'-- http://allenbrowne.com/func-DAO.html
Public Function addLinkedColumn(tbn$, cnam$, ctyp$, defValue, Optional withDrop% = 0)
Dim db1 As dao.Database, isFieldYes%
On Error GoTo err123
    isFieldYes = 0
    Set db1 = OpenDatabase(Split(CurrentDb.TableDefs(tbn).Connect, "=")(1))
    On Error Resume Next
    If db1.TableDefs(tbn).Fields(cnam).Name = cnam Then
        isFieldYes = 1
        If withDrop <> 0 And Err = 0 Then
            Err = 0
            db1.Execute "ALTER TABLE [" & tbn & "] DROP COLUMN [" & cnam & "] ", dbFailOnError
            If Err = 0 Then
                isFieldYes = 0
            Else
                MsgBox "Не удалось выполнить изменения" & vbCrLf & Error & vbCrLf & iDevelop, , "addLinkedColumn:dropcolumn"
            End If
        End If
    End If
    On Error GoTo err123
    If isFieldYes = 0 Then
        db1.Execute "ALTER TABLE [" & tbn & "] ADD COLUMN [" & cnam & "] " & ctyp, dbFailOnError
        Select Case LCase(ctyp)
        Case "yesno"
            db1.TableDefs(tbn).Fields(cnam).DefaultValue = Nz(defValue, 0)
            Call SetPropertyDAO(db1.TableDefs(tbn).Fields(cnam), "DisplayControl", dbInteger, CInt(acCheckBox))
        End Select
    End If
    CurrentDb.TableDefs(tbn).RefreshLink
Exit Function
err123:
MsgBox "Не удалось выполнить изменения" & vbCrLf & Error & vbCrLf & iDevelop, , "addLinkedColumn"
Exit Function
End Function


Call addLinkedColumn("tt_args_list", "inList", "YESNO", True)


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.