Access veritabanında başlangıç seçeneklerini zorlama veya devre dışı bırakma

Bu makale yalnızca bir Microsoft Access projesi (.adp) için geçerlidir.

Orta: Temel makro, kodlama ve birlikte çalışabilirlik becerileri gerektirir.

Özet

Bu makalede, başlatma seçeneklerini atlamanıza izin veren SHIFT tuşunun işlevselliğinin nasıl devre dışı bırakıldığı açıklanır. Bu makalede, Microsoft Access veritabanı projesinde başlatma seçeneklerinin nasıl zorunlu kılındığı da açıklanır.

Daha fazla bilgi

Access dosyası için tanımlanan başlangıç seçenekleri, dosyanın nasıl görüneceğini ve dosyayı açtığınızda dosyanın nasıl davranacağını belirler. Başlangıç seçeneklerini başlangıç kullanıcı arabirimini veya AutoExec makrosunu kullanarak ayarlayabilirsiniz.

Access veritabanı projesi için ayarlanan başlangıç seçeneklerini atlamak için, Access veritabanı projesini açarken SHIFT tuşunu basılı tutun.

Alternatif olarak, Access veritabanı projesi için ayarlanan başlangıç seçeneklerini zorlamak için, başlangıç seçeneklerini atlamanıza izin veren SHIFT tuşunun işlevselliğini devre dışı bırakın. Bunu yapmak için AllowBypassKey özelliğini False olarak ayarlayın.

AllowBypassKey özelliğini False olarak ayarlamak için şu adımları izleyin.

Access projesi (.adp) için adımlar

1. Access'i başlatın.

2. Bir Access veritabanı projesi açın.

3. Visual Basic düzenleyicisini açmak için ALT + F11 tuşlarına basın.

4. Visual Basic düzenleyicisinde Görünüm menüsünde Hemen Pencere'ye tıklayın.

5. Aşağıdaki kodu yazın veya aşağıdaki kodu Hemen penceresine yapıştırın ve enter tuşuna basın.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Visual Basic Düzenleyici kapatın ve ardından Access veritabanı projesini kapatın.

7. Access veritabanı projesini açın. Access veritabanı projesini açarken SHIFT tuşunu basılı tutarak Access veritabanı projesi için ayarlanan başlangıç seçeneklerini atlamayı deneyin.

   SHIFT tuşunun başlangıç seçeneğini atlamanıza izin veren işlevselliği devre dışıdır. Başlangıç seçeneklerini atlamak için SHIFT tuşunu basılı tutsanız da başlangıç seçenekleri yürütülür. Başlangıç seçeneklerini atlayamazsınız.

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şlevi 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üzenleyicisinde Görünüm menüsünde Hemen Pencere'ye tıklayın.

4. SHIFT tuşunu devre dışı bırakmak istiyorsanız , Hemen penceresine ap_DisableShift yazın ve ENTER tuşuna basın. Shift tuşunu etkinleştirmek istiyorsanız , Hemen penceresine ap_EnableShift yazın ve ENTER tuşuna basın.