Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
35<br />
End If<br />
CurrentDb.Properties ("AllowBypassKey") = нуженЛи<br />
MsgBox "Свойство установлено"<br />
Exit Sub<br />
добавитьСвойство:<br />
CurrentDb.Properties.Append _<br />
CurrentDb.CreateProperty ("AllowBypassKey", DbBoolean, нуженЛи)<br />
MsgBox "Свойство добавлено и установлено"<br />
End Sub<br />
Sub УдалитьСвойство ()<br />
On Error GoTo нетТакогоСвойства<br />
CurrentDb.Properties.Delete "AllowBypassKey"<br />
Exit Sub<br />
нетТакогоСвойства:<br />
MsgBox "Нет такого свойства"<br />
End Sub