Varat izmantot rekvizītu AllowBypassKey, lai norādītu, vai taustiņš SHIFT ir iespējots startēšanas rekvizītu un AutoExec makro apiešanai. Piemēram, varat iestatīt rekvizītu AllowBypassKey uz False, lai lietotājam neļautu apiet startēšanas rekvizītus un AutoExec makro.
Iestatījums
Rekvizīts AllowBypassKey izmanto tālāk norādītos iestatījumus.
|
Iestatījums |
Apraksts |
|
True |
Iespējot taustiņu SHIFT, lai lietotājam ļautu apiet uzsākšanas rekvizītus un izpildīt makro AutoExec. |
|
False |
Atspējot taustiņu SHIFT, lai lietotājam neļautu apiet startēšanas rekvizītus un izpildīt makro AutoExec. |
Varat iestatīt šo rekvizītu, izmantojot makro vai Visual Basic for Applications (VBA) kodu.
Lai rekvizītu AllowBypassKey iestatītu, izmantojot makro vai Visual Basic for Applications (VBA) kodu, šis rekvizīts jāizveido, rīkojoties šādi:
-
Microsoft Access datu bāzē (.mdb vai .accdb) jūs varat pievienot rekvizītu, izmantojot metodi CreateProperty un pēc tam pievienojot to objekta Database kolekcijai Properties.
-
Microsoft Access projekts (.adp) jūs varat pievienot rekvizītu objekta CurrentProject kolekcijai AccessObjectProperties, izmantojot metodi Add.
Piezīmes
Pārliecinieties, vai rekvizīts AllowBypassKey ir iestatīts uz True, kad atkļūdojat lietojumprogrammu.
Rekvizīta AllowBypassKey iestatījums nav spēkā līdz nākamajai lietojumprogrammas datu bāzes atvēršanas reizei.
Piemērs
Tālāk esošajā piemērā ir parādīta procedūra ar nosaukumu SetBypassProperty, kas apiet iestatāmā rekvizīta nosaukumu, tā datu tipu un iestatījumu. Vispārēja mērķa procedūra ChangeProperty mēģina iestatīt rekvizītu AllowBypassKey un, ja rekvizīts netiek atrasts, izmanto metodi CreateProperty, lai rekvizītu pievienotu kolekcijai Properties. Tas ir nepieciešams, jo rekvizīts AllowBypassKey netiek rādīts kolekcijā Properties, līdz tas ir pievienots.
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
