Zorlamanýza veya bir Access veritabaný projesinde baþlangýç seçeneklerini devre dýþý býrakma hakkýnda

Bu makalede, baþlangýç seçenekleri atlamasýna olanak veren ÜSTKRKT tuþunu iþlevselliðini devre dýþý býrakma. Bu makalede ayrýca Microsoft Access veritabaný projedeki baþlangýç seçenekleri'ni zorlamak açýklamaktadýr.

Bir Access dosyasý için tanýmlanan baþlangýç seçenekleri, dosya görünümünü ve dosyayý açtýðýnýzda, dosyayý nasýl davranacaðýný belirleyin. Baþlangýç seçenekleri <a0>Baþlangýç</a0> kullanýcý arabirimini kullanarak veya AutoExec makrosu kullanarak da ayarlayabilirsiniz.

Baþlangýç atlamak için proje VARDIYANýN basýlý Access veritabanýna proje anahtar için eriþim açýk durumdayken, ayarlanan seçenekler veritabaný.

Alternatif olarak, Access veritabaný proje için ayarlanmýþ olan Baþlangýç Seçenekleri'ni zorlamak için <a0></a0>, baþlangýç seçenekleri atlamasýna olanak veren ÜSTKRKT tuþunu iþlevselliðini devre dýþý býrakýn. Bunu yapmak için <a0></a0>, AllowBypassKey özelliði false olarak ayarlayýn.

AllowBypassKey özelliði false olarak ayarlamak için <a0></a0>, aþaðýdaki adýmlarý izleyin.

Access projesinde (.adp) için adýmlarý

1. Access'i baþlatýn.
2. Veritabaný Access projesini açýn.
3. Baský Ýçin ALT + F11 Visual Basic Düzenleyicisi'ni açýn.
4. Visual Basic Düzenleyicisi içinde Anlýk pencere, Görünüm menüsünde týklatýn.
5. Aþaðýdaki kodu yazýn veya hemen penceresinde aþaðýdaki kodu yapýþtýrýn ve sonra.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

   basýn
6. Proje kapatýn Visual Basic Düzenleyicisi'ni ve sonra Kapat'ý eriþim veritabaný.
7. Veritabaný Access projesini açýn. Veritabaný Access projesini açmak ÜST KRKT tuþunu basýlý tutarken Access veritabaný proje için ayarlanmýþ olan baþlangýç seçenekleri atlamak, bu seçeneði deneyin.
   
   Baþlangýç seçeneði atlamasýna olanak veren ÜSTKRKT tuþunu iþlevselliðini devre dýþý býrakýlýr. Baþlangýç seçenekleri, baþlangýç seçenekleri atlamak için ÜSTKRKT tuþunu basýlý tutun, ancak yürütülür. Baþlangýç seçenekleri atlayamazsýnýz.

Bir Access veritabaný (.mdb veya .accdb) için adýmlarý

1. Access'i baþlatýn.
2. Yeni bir modül oluþturun ve aþaðýdaki iki iþlevleri ekleyin:

   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. Visual Basic Düzenleyicisi içinde Anlýk pencere, Görünüm menüsünde týklatýn.
4. Üst karakter tuþunu devre dýþý býrakmak isterseniz, ap_DisableShifthemen penceresine yazýn ve ENTER tuþuna basýn. ÜST KRKT tuþunu etkinleþtirmek, Microsoft Windows XP ap_EnableShifthemen penceresine yazýn ve ENTER tuþuna basýn.