Microsoft Access wordt geleverd met het Microsoft Office Productivity Suite . Bij het uitvoeren van de software , als u op de toets " Shift " , kunt u diverse start - up opties die anders nuttig zou zijn te omzeilen . Dit vermogen om deze opties te vermijden kunnen de voortgang belemmeren op uw project , het verspillen van kostbare tijd . Gebruikers kunnen deze optie te verwijderen, zodat ze zijn verplicht om de start - up opties elke keer uit te voeren . Het proces vereist een beetje codering en is verschillend , afhankelijk van of het een Access- project of -database . Instructies
uitschakelen van de Shift-toets voor Access Projects ( . Adp -bestand ) op Twitter 1 Open Access . Kopen van 2 Open uw project -bestand door te gaan naar " File ", dan 'Openen'.
3 Druk op de toets " ALT " en de " F11 "-toets op uw toetsenbord . Dit opent het " Visual Basic Editor . "
4 Klik op ' Bekijk ' en vervolgens ' venster Direct . "
5 Typ de volgende code , geleverd door Microsoft , in het " venster Direct : " " . Enter" .
CurrentProject.Properties.Add " AllowBypassKey " , False Hit
6 Sluit de editor < br
7 > Sla je werk op en Access opnieuw .
de Shift-toets voor de Access-database ( . mdb -of . accdb )
8 uitschakelen Open Access .
9 Maak een nieuwe module door te gaan naar " Objects " en vervolgens " Modules " in het venster " Database " .
10 in deze functie , op voorwaarde door Microsoft , in de module : functie ap_DisableShift ( )
' Deze functie schakelt de verschuiving bij het opstarten . Deze actie zorgt ervoor
' de macro Autoexec en Startup eigenschappen om altijd worden uitgevoerd .
On Error GoTo errDisableShift Dim db
Zoals DAO.Database
Dim prop als DAO.Property Const conPropNotFound
= 3270
Set db = CurrentDb ( ) op " Deze volgende regel schakelt de shift-toets tijdens het opstarten .
db.Properties ( " AllowBypassKey " ) = False
' De functie succesvol
Exit Function
errDisableShift : .
' Het eerste deel van dit fout routine creëert de " AllowBypassKey
' woning als deze nog niet bestaat .
Als Err = conPropNotFound dan Set prop = db.CreateProperty
( " AllowBypassKey " , _ < br > dbBoolean , False ) op Twitter db.Properties.Append prop
Resume Next
Else MsgBox " Function ' ap_DisableShift ' niet
met succes te voltooien . " Exit Function End
Als End Function
11
In deze tweede functie onmiddellijk na de degene die je in de ingevoegde laatste stap : functie ap_EnableShift ( ) op Twitter ' . met deze functie kan de SHIFT-toets tijdens het opstarten Deze actie zorgt ervoor
' de macro Autoexec en de Startup eigenschappen worden omzeild < br > ' als de gebruiker houdt de SHIFT- toets wanneer de gebruiker de database opent .
On Error GoTo errEnableShift Dim db
als DAO.Database
Dim prop als DAO.Property Const conPropNotFound
= 3270
Set db = CurrentDb ( ) op " Deze volgende regel code schakelt de SHIFT-toets tijdens het opstarten .
db.Properties ( " AllowBypassKey " ) = True
' functie succesvol
Exit Function
errEnableShift :
' Het eerste deel van deze fout routine creëert de " AllowBypassKey
' woning als deze nog niet bestaat .
Als Err = conPropNotFound dan Set prop = db.CreateProperty
( " AllowBypassKey " , _ < br dbBoolean , db.Properties.Append > True ) op Twitter prop
Resume Next
Else MsgBox " Function ' ap_DisableShift '
niet voltooid succes . " Exit Function End
Als End Function
12
Open de Visual Basic Editor door op de " toets ALT " en de ' F11 ' toetsen op je toetsenbord opnieuw .
Click 13 " bekijken ", vervolgens " venster Direct . "
Type " ap_DisableShift " 14 in het " venster Direct key Shift " " om het gebruik van de uit te schakelen " .
|
