Du kan bruke egenskapen AllowBypassKey til å angi om SKIFT-tasten er aktivert for å hoppe over oppstartsegenskapene og makroen AutoExec. Du kan for eksempel angi egenskapen AllowBypassKey til False til å forhindre at en bruker hopper over oppstartsegenskapene og makroen AutoExec.
Innstilling
Egenskapen AllowBypassKey bruker følgende innstillinger.
|
Innstilling |
Beskrivelse |
|
True |
Aktiverer SKIFT-tasten slik at brukerne kan hoppe over oppstartsegenskapene og AutoExec-makroen. |
|
False |
Deaktiverer SKIFT-tasten slik at brukerne ikke kan hoppe over oppstartsegenskapene og AutoExec-makroen. |
Du kan angi denne egenskapen ved hjelp av makro eller Visual Basic for Applications (VBA)-koden.
Hvis du vil angi egenskapen AllowBypassKey ved hjelp av en makro eller Visual Basic for Applications (VBA)-koden, må du opprette egenskapen på følgende måter:
-
I en Microsoft Access-database (.mdb eller .accdb) kan du legge til egenskapen ved hjelp av metoden CreateProperty og deretter tilføye den i samlingen Egenskaper i objektet Database.
-
I et Microsoft Access-prosjekt (ADP) kan du legge til egenskapen i samlingen AccessObjectProperties i objektet CurrentProject ved hjelp av metoden Add.
Merknader
Påse at egenskapen AllowBypassKey er satt til True når du feilsøker et program.
Egenskapsinnstillingen for AllowBypassKey trer ikke i kraft før neste gang programdatabasen åpnes.
Eksempel
Følgende eksempel viser en prosedyre kalt SetBypassProperty som sender navnet på egenskapen som skal angis, datatypen og innstillingen. Den generelle formålsprosedyren ChangeProperty forsøker å angi AllowBypassKey-egenskapen, og hvis egenskapen ikke blir funnet, brukes CreateProperty-metoden til å tilføye egenskapen til samlingen Properties. Dette er nødvendig fordi Egenskapen AllowBypassKey ikke vises i Egenskaper-samlingen før den er lagt til.
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
