АйналыпӨтуПернесінеРұқсат сипаты

АйналыпӨтуПернесінеРұқсат сипатын SHIFT пернесі іске қосу сипаттары мен AutoExec макросын айналып өту үшін қосылуын анықтау үшін пайдалануыңызға болады. Мысалы, АйналыпӨтуПернесінеРұқсат сипатын пайдаланушы іске қосу сипаттары мен AutoExec макросын айналып өтуінің алдын алу үшін Жалған мәніне қойсаңыз болады.

Параметр

АйналыпӨтуПернесінеРұқсат сипатында келесі параметрлер қолданылады.

Параметр

Сипаттама

Шын

Пайдаланушының іске қосу сипаты мен AutoExec макросын айналып өтуіне мүмкіндік беру үшін SHIFT пернесін қосыңыз.

Жалған

Пайдаланушының іске қосу сипаты мен AutoExec макросын айналып өтуінің алдын алу үшін SHIFT пернесін ажыратыңыз.


Бұл сипатты макроc немесе Бағдарламаларға арналған Visual Basic (VBA) коды арқылы да орнатуыңызға болады.

АйналыпӨтуПернесінеРұқсат сипатын макрос немесе Бағдарламаларға арналған Visual Basic (VBA) коды арқылы орнату үшін сипатты келесі жолдар арқылы жасауыңыз керек:

  • дерекқор (.mdb немесе .accdb) ішінде, сипатты СипатЖасау әдісі арқылы жасап, оны Дерекқор нысанының Сипаттар жиынына қосып тіркеуіңізге болады.

  • Microsoft Access жобасы (.adp) ішінде, сипатты Қосу әдісі арқылы АғымдағыЖоба нысанының AccessНысанСипаттары жиынына қосуыңызға болады.

Ескертпелер

Бағдарламаны жөндеген кезде, АйналыпӨтуПернесінеРұқсат сипатының Шын мәніне қойылғанына көз жеткізгеніңіз жөн.

Бағдарлама дерекқоры келесі жолы ашылғанға дейін, АйналыпӨтуПернесінеРұқсат сипатының параметрі күшіне енбейді.

Мысал

Келесі мысалда орнатылатын сипаттың атауын, оның деректер түрін және параметрін өткізетін "АйналыпӨтуСипатынОрнату" деп аталатын іс реті көрсетіледі. Жалпы мақсаттағы "СипаттыӨзгерту" іс реті АйналыпӨтуПернесінеРұқсат сипатын орнатуға әрекеттенеді және сипат табылмаған жағдайда СипатЖасау әдісін қолданып, сипатты Сипаттар жиынына қоса тіркейді. Бқл қажет болып табылады, себебі АйналыпӨтуПернесінеРұқсат сипаты қосылмайынша, ол Сипаттар жиынында көрінбейді.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×