Лекции по Microsoft Access 2000


         

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 'Очищаем поток от незнакомой ошибки



Содержание  Назад  Вперед