Microsoft Access leveres buntet med Microsoft Office Productivity suite . Når du kjører programvaren, hvis du trykker på "Shift "-tasten , kan du omgå forskjellige start -up alternativer som ellers ville være nyttig . Denne evnen til å unngå disse alternativene kan hindre fremdriften på prosjektet , å kaste bort verdifull tid . Brukere kan fjerne denne muligheten slik at de er pålagt å utføre oppstart alternativer hver gang . Prosessen krever litt koding og er forskjellig avhengig av om det er et Access-prosjekt eller database. Instruksjoner
Deaktivering Shift-tasten for tilgang til prosjekter ( . ADP -fil )
en
Open Access .
2
Åpne prosjektfilen ved å gå til "File " deretter " Open".
3
Trykk på "ALT" tasten og " F11 "-tasten på tastaturet. Dette vil åpne opp " Visual Basic-redigering . "
4
Klikk på " Vis " og deretter " Immediate Window. "
5
Skriv inn følgende kode , levert av Microsoft , i " Immediate Window :" " . Enter" .
CurrentProject.Properties.Add " AllowBypassKey " , False
Hit
6
Lukk redaktøren
7
Lagre arbeidet , og start Access.
deaktivere Shift-tasten for Access database (. MDB-eller . accdb filer )
8
open Access .
9
Opprett en ny modul ved å gå til " objekter ", deretter "moduler " i " Database "-vinduet .
10
Legg denne funksjonen , forutsatt av Microsoft, i modulen : en
funksjon ap_DisableShift ( )
'Denne funksjonen deaktivere skift ved oppstart. Denne handlingen fører
'the Autoexec makro og Oppstart egenskaper for å alltid bli henrettet.
On Error GoTo errDisableShift
Dim db As DAO.Database
Dim prop som DAO.Property
Konst conPropNotFound = 3270
Sett db = CurrentDb ( )
'Dette neste linje deaktiverer shift-tasten ved oppstart.
db.Properties ( " AllowByPassKey ") = False
' funksjonen er vellykket
Exit Function
errDisableShift : .
' Den første delen av dette error rutine skaper den " AllowByPassKey
'eiendom hvis den ikke eksisterer .
p Hvis Err = conPropNotFound Deretter
Set prop = db.CreateProperty ( " AllowByPassKey ", _
dbBoolean , False )
db.Properties.Append prop
Resume Next
Else
MsgBox "Function " ap_DisableShift ' gjorde ikke ble fullført . "
Exit Function
End If
End Function
11
Legg denne andre funksjon umiddelbart etter den du satt inn i siste trinn : en
funksjon ap_EnableShift ( )
' . Denne funksjonen gjør det mulig SHIFT-tasten ved oppstart Denne handlingen fører
' the Autoexec makro og oppstartsgruppene egenskaper for å bli forbigått
"hvis brukeren holder nede Skift-tasten når brukeren åpner databasen.
On Error GoTo errEnableShift
Dim db som DAO.Database
Dim prop som DAO.Property
Konst conPropNotFound = 3270
Sett db = CurrentDb ( )
' Denne neste kodelinje deaktiverer SHIFT-tasten ved oppstart.
< p> db.Properties ( " AllowByPassKey ") = sant
' funksjon vellykket
Exit Function
errEnableShift : en
' Den første delen av denne feilen rutine skaper den " AllowByPassKey
'eiendom hvis den ikke eksisterer .
p Hvis Err = conPropNotFound Deretter
Set prop = db.CreateProperty ( " AllowByPassKey ", _
dbBoolean , sann)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function " ap_DisableShift ' ble ikke fullført hell . "
Exit Function
End If
End Function
12
Åpne Visual Basic Editor ved å trykke på " ALT " tasten og "F11 " tastene på tastaturet igjen .
13
Klikk på " Vis " og deretter " Immediate Window ."
14
Type " ap_DisableShift " i " Immediate Window "for å deaktivere bruk av" Shift "-tasten.
