Office
Logg på

AllowBypassKey-egenskapen

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 overfører navnet på egenskapen som skal angis, datatypen og innstillingen. Den generelle prosedyren ChangeProperty prøver å angi egenskapen AllowBypassKey. Hvis egenskapen ikke finnes, bruker du metoden CreateProperty for å føye til egenskapen i samlingen Egenskaper. Dette er nødvendig fordi egenskapen AllowBypassKey ikke vises i områdesamlingen Egenskaper før den blir 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
Bli bedre på Office
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×