Function dbChangeProperty(strName As String, varType As Variant, varValue As Variant) As Boolean

Dim prp As Variant, dbs As Database

   

    On Error GoTo 999 'Назначаем переход по ошибке

    dbChangeProperty = False 'Возвращаем результат при ошибке

   

    Set dbs = appAccess.CurrentDb 'Выбираем базу

    dbs.Properties(strName) = varValue 'Присваиваем значение

   

    dbChangeProperty = True 'Возвращаем результат

    Exit Function 'Выходим из программы

999:

    If Err = 3270 Then  'Свойство не найдено

        Set prp = dbs.CreateProperty(strName, varType, varValue) 'Создаем свойство

        dbs.Properties.Append prp 'Добавляем свойство

        Err.Clear 'Очищаем поток от ошибки

        Resume Next 'Возвращаемся к следующему оператору

    End If

    Err.Clear 'Очищаем поток от незнакомой ошибки

Содержание раздела

---

---