Управление базами данных Access на VBA - eDrive

34
End If
End Sub
Начальная установка интерфейса
База данных Access открывается в соответствии с настройками меню
Сервис .Параметры запуска или макросом AutoExec.
Примеры
Sub ПараметрыЗапуска ()
ЗадатьСвойство "StartupForm", dbText, "МояФорма"
ЗадатьСвойство "AppTitle", dbText, "Моя форма"
ЗадатьСвойство "StartupShowDBWindow", dbBoolean, False
ЗадатьСвойство "StartupShowStatusBar", dbBoolean, False
ЗадатьСвойство "AllowBuiltinToolbars", dbBoolean, True
ЗадатьСвойство "AllowFullMenus", dbBoolean, True
ЗадатьСвойство "AllowBreakIntoCode", dbBoolean, False
ЗадатьСвойство "AllowSpecialKeys", dbBoolean, True
ЗадатьСвойство "AllowBypassKey", dbBoolean, TrueEnd Sub
MsgBox(“OK”)
End Sub
Function ЗадатьСвойство (имяСвойства As String, типСвойства As Variant, _
значениеСвойства As Variant) As Integer
Const conPropNotFoundError = 3270
On Error GoTo еслиНетТакогоСвойства
CurrentDb.Properties (имяСвойства) = значениеСвойства
ЗадатьСвойство = True
конец:
Exit Function
еслиНетТакогоСвойства:
If Err = conPropNotFoundError Then ' свойство не установлено
Set свойство = CurrentDb.CreateProperty (имяСвойства, _
типСвойства, значениеСвойства)
CurrentDb.Properties.Append свойство
Resume Next
Else
' неясная ошибка
ЗадатьСвойство = False
Resume конец
End If
End Function
Sub АнтиШифт ()
On Error GoTo добавитьСвойство
If MsgBox ("Нужен ли Шифт", vbYesNo) = vbYes Then
нуженЛи = True
Else
нуженЛи = False