Microsoft Access kommer sammen med Microsoft Office- produktivitet suite . Når du kører softwaren, hvis du trykker på "Shift "-tasten , kan du omgå diverse nystartede muligheder, der ellers ville være nyttigt. Denne evne til at undgå disse muligheder kan hindre fremskridt på dit projekt , spilder værdifuld tid. Brugere kan fjerne denne mulighed, så de er forpligtet til at udføre start- indstillinger hver gang. Processen kræver en smule kodning og er forskellig afhængigt af om det er en Access-projekt eller en database . Instruktioner
Deaktivering Shift Nøgle til Access-projekter ( . Adp -fil)
1

Open Access .
2

Åbn dit projekt fil ved at gå til "File " derefter " Åbn".
3

Tryk på " ALT " tasten og " F11 " tasten på dit tastatur. Dette vil åbne op for "Visual Basic Editor. "
4

Klik på " Vis " og derefter " Immediate Window ".
5

Indtast følgende kode , som leveres af Microsoft , i " Immediate Window: " " . Enter" .

CurrentProject.Properties.Add " AllowBypassKey " False

Hit
6

Luk editor < br >
7

Gem dit arbejde , og genstart Access.
Deaktivering Shift Key til Access -database (. mdb eller . accdb -filer )
8

Open Access .
9

Opret et nyt modul ved at gå til "Objekter " og derefter " Moduler " i " Database " vinduet.
10

Tilføj denne funktion , forudsat af Microsoft, i modulet : Hej

Function ap_DisableShift ()

'Denne funktion deaktiverer skift ved opstart. Denne handling forårsager

' Autoexec makro-og Startup egenskaber altid blive henrettet.

Fejl GoTo errDisableShift

Dim db Som DAO.Database

Dim prop som DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ()

' Denne næste linje deaktiverer shift -tasten ved opstart.

db.Properties ( " AllowByPassKey " ) = False

' funktionen er vellykket

Exit Function

errDisableShift : .

»Den første del af dette error rutine skaber " AllowByPassKey

' ejendom, hvis den ikke eksisterer .
p Hvis Err = conPropNotFound Så

Set prop = db.CreateProperty ( " AllowByPassKey " , _ < br >

dbBoolean , False )

db.Properties.Append prop

Resume Next

Else

MsgBox "Function " ap_DisableShift ' ikke fuldført . "

Exit Function

End If

End Function
11

Tilføj denne anden funktion umiddelbart efter den du indsat i sidste trin : Hej

Function ap_EnableShift ()

' . Denne funktion gør det muligt for SHIFT tasten ved opstart Denne handling medfører

' Autoexec makro-og startup egenskaber til at blive omgået < br >

', hvis brugeren holder SKIFT nede , når brugeren åbner databasen .

Fejl GoTo errEnableShift

Dim db som DAO.Database

Dim prop som DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ()

' Denne næste linje kode deaktiverer SHIFT tasten ved opstart.
< p> db.Properties ( " AllowByPassKey " ) = Sand

'funktionen vellykket

Exit Function

errEnableShift : Hej

' Den første del af denne fejl rutine skaber " AllowByPassKey

' ejendom, hvis den ikke eksisterer .
p Hvis Err = conPropNotFound Så

Set prop = db.CreateProperty ( " AllowByPassKey " , _ < br >

dbBoolean , sand)

db.Properties.Append prop

Resume Next

Else

MsgBox "Function " ap_DisableShift ' ikke komplet med succes. "

Exit Function

End If

End Function
12

Åbn Visual Basic Editor ved at trykke på" ALT "-tasten og meddelelsen "F11 " tasterne på tastaturet igen.
13

Klik på " Vis " og derefter " Immediate Window ".
14

Type " ap_DisableShift " i " Immediate Window "for at deaktivere brugen af ​​" Shift "-tasten.