Jak wymusić lub wyłączyć opcje uruchamiania w bazie danych programu Access

Ten artykuł dotyczy tylko projektu programu Microsoft Access (adp).

Umiarkowane: wymaga podstawowych umiejętności w zakresie makra, kodowania i współdziałania.

Podsumowanie

W tym artykule opisano sposób wyłączania funkcji klucza SHIFT, który pozwala pominąć opcje uruchamiania. W tym artykule opisano również sposób wymuszania opcji uruchamiania w projekcie bazy danych programu Microsoft Access.

Więcej informacji

Opcje uruchamiania zdefiniowane dla pliku programu Access określają wygląd pliku i zachowanie pliku po otwarciu pliku. Opcje uruchamiania można ustawić przy użyciu interfejsu użytkownika uruchamiania lub za pomocą makra AutoExec.

Aby pominąć opcje uruchamiania ustawione dla projektu bazy danych programu Access, przytrzymaj wciśnięty klawisz SHIFT podczas otwierania projektu bazy danych programu Access.

Alternatywnie, aby wymusić opcje uruchamiania ustawione dla projektu bazy danych programu Access, wyłącz funkcjonalność klucza SHIFT, który pozwala pominąć opcje uruchamiania. W tym celu ustaw właściwość AllowBypassKey na wartość False.

Aby ustawić właściwość AllowBypassKey na wartość False, wykonaj następujące kroki.

Kroki dotyczące projektu programu Access (adp)

1. Uruchom dostęp.

2. Otwórz projekt bazy danych programu Access.

3. Naciśnij klawisze ALT + F11, aby otworzyć edytor Visual Basic.

4. W edytorze Visual Basic kliknij pozycję Natychmiastowe okno w menu Widok .

5. Wpisz poniższy kod lub wklej następujący kod w oknie Natychmiastowe, a następnie naciśnij klawisz ENTER.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Zamknij Redaktor Visual Basic, a następnie zamknij projekt bazy danych programu Access.

7. Otwórz projekt bazy danych programu Access. Spróbuj pominąć opcje uruchamiania ustawione dla projektu bazy danych programu Access, przytrzymując klawisz SHIFT podczas otwierania projektu bazy danych programu Access.

   Funkcjonalność klucza SHIFT umożliwiającego obejście opcji uruchamiania jest wyłączona. Mimo że przytrzymasz klawisz SHIFT, aby pominąć opcje uruchamiania, są wykonywane opcje uruchamiania. Nie można pominąć opcji uruchamiania.

Kroki dotyczące bazy danych programu Access (.mdb lub accdb)

1. Uruchom dostęp.

2. Utwórz nowy moduł, a następnie dodaj następujące dwie funkcje:

   Function ap_DisableShift()
   'This function disable the shift at startup. This action causes
   'the Autoexec macro and Startup properties to always be executed.
   
   On Error GoTo errDisableShift
   
   Dim db As DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line disables the shift key on startup.
   db.Properties("AllowByPassKey") = False
   
   'The function is successful.
   Exit Function
   
   errDisableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, False)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   
   Function ap_EnableShift()
   'This function enables the SHIFT key at startup. This action causes
   'the Autoexec macro and the Startup properties to be bypassed
   'if the user holds down the SHIFT key when the user opens the database.
   
   On Error GoTo errEnableShift
   
   Dim db as DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line of code disables the SHIFT key on startup.
   db.Properties("AllowByPassKey") = True
   
   'function successful
   Exit Function
   
   errEnableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, True)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   

3. W edytorze Visual Basic kliknij pozycję Natychmiastowe okno w menu Widok .

4. Jeśli chcesz wyłączyć klucz SHIFT, wpisz ap_DisableShift w oknie Natychmiastowe , a następnie naciśnij klawisz ENTER. Jeśli chcesz włączyć klawisz shift, wpisz ap_EnableShift w oknie Natychmiastowe , a następnie naciśnij klawisz ENTER.