Microsoft Access levereras med Microsoft Office Productivity Suite . När du kör programmet , om du trycker på " Shift " -tangenten , kan du gå förbi olika start - up alternativ som annars skulle vara till hjälp . Denna förmåga att undvika dessa alternativ kan hindra framsteg på ditt projekt , slösa bort värdefull tid . Användare kan ta bort det här alternativet så att de är skyldiga att utföra start - up alternativ varje gång . Processen kräver lite kodning och är olika beroende på om det är ett Access-projekt eller en databas . Instruktioner
Inaktivera shift-tangenten för Access- projekt ( . ADP-fil )
1
Open Access .
2
Öppna ditt projekt fil genom att gå till " File" sedan " Öppna".
3
Tryck på " Alt"-tangenten och " F11 " på tangentbordet . Detta kommer att öppna upp " Visual Basic Editor . "
4
Klicka på " Visa " och sedan " Immediate Window . "
5
Skriv följande kod , som tillhandahålls av Microsoft , i " Immediate Window : " " . Enter " .
CurrentProject.Properties.Add " AllowBypassKey " , False
Hit
6
Stäng editorn
7
Spara ditt arbete och starta om Access. Addera Inaktivera shift-tangenten för Access-databas ( . mdb eller . ACCDB filer )
8
Open Access .
9
Skapa en ny modul genom att gå till " objekt " och sedan " Modules " i " Databas " fönstret .
10
Lägg denna funktion , förutsatt från Microsoft , i modulen :
funktion ap_DisableShift ( ) katalog
' Denna funktion avaktivera skift vid start . Denna åtgärd medför
" Autoexec makro-och Startup egenskaper alltid utföras .
On Error GoTo errDisableShift
Dim db Som DAO.Database
Dim prop som DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ( ) katalog
" Denna nästa rad inaktiverar shift -tangenten vid start .
db.Properties ( " AllowByPassKey " ) = False
" funktionen är framgångsrika
Exit Function
errDisableShift : .
" Den första delen av detta felrutin skapar " AllowByPassKey
" egendom om det inte existerar .
p Om Err = conPropNotFound Sedan
Set prop = db.CreateProperty ( " AllowByPassKey " , _
dbBoolean , False ) katalog
db.Properties.Append prop
Resume Next
Else
MsgBox " Function " ap_DisableShift " inte slutföras . "
Exit Function
End If
End Function
11
Lägg denna andra funktion omedelbart efter den du in i sista steget :
funktion ap_EnableShift ( ) katalog
" . Denna funktion möjliggör SHIFT vid uppstart Denna åtgärd orsakar
" Autoexec makro-och startup egenskaper kringgås
" om användaren håller ned SKIFT när användare öppnar databasen .
On Error GoTo errEnableShift
Dim db som DAO.Database
Dim prop som DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ( ) katalog
" Denna nästa kodrad inaktiverar SHIFT vid uppstart .
< p> db.Properties ( " AllowByPassKey " ) = Sant
' funktion framgångsrika
Exit Function
errEnableShift :
" Den första delen av detta fel rutin skapar " AllowByPassKey
" egendom om det inte existerar .
p Om Err = conPropNotFound Sedan
Set prop = db.CreateProperty ( " AllowByPassKey " , _
dbBoolean , Sant ) katalog
db.Properties.Append prop
Resume Next
Else
MsgBox " Function " ap_DisableShift " inte komplett framgångsrikt . "
Exit Function
End If
End Function
12
Öppna Visual Basic Editor genom att trycka på " Alt "-tangenten och de " F11 " på tangentbordet igen .
13
Klicka på "Visa " och sedan " Immediate Window . "
14
Type " ap_DisableShift " i " Immediate Window " för att inaktivera användningen av " Shift " -tangenten .
