Microsoft Access kommt mit dem Microsoft Office Productivity Suite gebündelt . Wenn die Software , wenn Sie die "Shift "-Taste drücken, können Sie umgehen, verschiedene Start-up- Optionen , die sonst hilfreich . Diese Fähigkeit, diese Optionen zu vermeiden kann die Fortschritte auf dem Projekt zu behindern, wertvolle Zeit . Benutzer können diese Option entfernen , so dass sie verpflichtet sind, führen Sie die Start-up- Optionen jedesmal . Der Prozess erfordert ein bisschen Codierung und unterscheidet sich je nachdem, ob es sich um eine Access-Projekt oder einer Datenbank ist . Anleitung
Deaktivieren der Umschalttaste für Access-Projekte ( . Adp -Datei)
1
Open Access .
2
Öffnen Sie Ihr Projekt -Datei , indem Sie auf "Datei" dann "Öffnen".
3
Drücken Sie die "ALT" -Taste und die Taste "F11" auf Ihrer Tastatur. Dies eröffnet die " Visual Basic -Editor. "
4
Klicken Sie auf " Ansicht ", dann " Direkt-Fenster . "
5
Geben Sie den folgenden Code , die von Microsoft bereitgestellt , in der " Direkt-Fenster :" " . Enter" .
" AllowBypassKey ", false
Hit CurrentProject.Properties.Add
6
Schließen Sie den Editor
7
Speichern Sie Ihre Arbeit , und starten Sie Access.
Deaktivieren der Umschalttaste für Access-Datenbank ( . mdb oder . mdb Dateien )
8
Open Access .
9
erstellen Sie ein neues Modul , indem Sie auf "Objekte ", dann " Module" in der "Datenbank "-Fenster.
10
Fügen Sie diese Funktion , sofern von Microsoft , in das Modul :
Funktion ap_DisableShift ()
'Diese Funktion deaktiviert die Verschiebung beim Start. Diese Aktion bewirkt
' die Autoexec Makro-und Startup Eigenschaften immer ausgeführt werden.
On Error GoTo errDisableShift
Dim db Wie DAO.Database
Dim prop als DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
"Diese nächste Zeile deaktiviert die Shift-Taste beim Start.
db.Properties ( " AllowBypassKey " ) = False
' Die Funktion ist erfolgreich
Exit Function
errDisableShift : .
' der erste Teil dieses Fehler Routine schafft der " AllowBypassKey
' Eigenschaft, wenn es nicht existiert .
If Err = conPropNotFound Dann
Set prop = db.CreateProperty ( " AllowBypassKey ", _
dbBoolean , False)
db.Properties.Append prop
Resume Next Else
MsgBox " Function ' ap_DisableShift ' nicht erfolgreich abgeschlossen . "
Exit Function
End If End Function
11
Fügen Sie diese zweite Funktion unmittelbar nach dem von Ihnen in das eingefügte Letzter Schritt:
Funktion ap_EnableShift ()
' . Diese Funktion ermöglicht die SHIFT-Taste beim Start Diese Aktion bewirkt
' die Autoexec Makro-und die Startup Eigenschaften umgangen werden
", wenn der Benutzer hält Sie die SHIFT- Taste, wenn der Benutzer die Datenbank öffnet .
On Error GoTo errEnableShift
Dim db as DAO.Database
Dim prop als DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
' die nächste Codezeile deaktiviert die SHIFT-Taste beim Start.
< p> db.Properties ( " AllowBypassKey " ) = True
' Funktion erfolgreich
Exit Function
errEnableShift :
' der erste Teil dieses Fehlers Routine schafft der " AllowBypassKey
' Eigenschaft, wenn es nicht existiert .
If Err = conPropNotFound Dann
Set prop = db.CreateProperty ( " AllowBypassKey ", _
dbBoolean , True)
db.Properties.Append prop
Resume Next Else
MsgBox " Function ' ap_DisableShift ' nicht abgeschlossen erfolgreich . "
Exit Function
End If End Function
12
Öffnen Sie den Visual Basic-Editor , indem Sie die " Alt "-Taste und die " F11 "-Taste auf Ihrer Tastatur wieder .
13
Klicken Sie auf " Ansicht ", dann " Direkt-Fenster . "
14
Type " ap_DisableShift " in der " Direkt-Fenster " zu deaktivieren Sie die Verwendung der " Shift "-Taste.
