Rekvizīts AllowBypassKey

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
Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×