Başlangıç özelliklerini ve AutoExec makrosunu atlamak için SHIFT tuşunun etkinleştirilip etkinleştirilmediğini belirtmek üzere AllowBypassKey özelliğini kullanabilirsiniz. Örneğin, kullanıcının başlangıç özelliklerini ve AutoExec makrosunu atlamasını engellemek için AllowBypassKey özelliğini False olarak ayarlayabilirsiniz.

Ayar

AllowBypassKey özelliği aşağıdaki ayarları kullanır.

Ayar

Açıklama

True

Kullanıcının başlatma özelliklerini ve AutoExec makrosunu atlamasına izin vermek için SHIFT tuşunu etkinleştir.

False

Kullanıcının başlatma özelliklerini ve AutoExec makrosunu atlamasını engellemek için SHIFT tuşunu devre dışı bırak.

makro veya Visual Basic for Applications (VBA) kodu kullanarak bu özelliği ayarlayabilirsiniz.

Makro veya Visual Basic for Applications (VBA) kodu kullanarak AllowBypassKey özelliğini ayarlamak için özelliği aşağıdaki yolla oluşturmanız gerekir:

  • Microsoft Access veritabanında (.mdb veya .accdb), özelliği CreateProperty yöntemini kullanarak ve sonra Veritabanı nesnesinin Özellikler koleksiyonuna ekleyerek ekleyebilirsiniz.

  • Bir Microsoft Access projesi (.adp), Ekle yöntemini kullanarak özelliği CurrentProject nesnesinin AccessObjectProperties topluluğuna ekleyebilirsiniz.

Notlar

Uygulamada hata ayıklaması yaparken AllowBypassKey özelliğinin True olarak ayarlandığından emin olmalısınız.

AllowBypassKey özelliğinin ayarı, uygulama veritabanının sonraki açılışına kadar geçerlilik kazanmaz.

Örnek

Aşağıdaki örnekte, ayarlanacak özelliğin adını, veri türünü ve ayarını geçiren SetBypassProperty adlı bir yordam gösterilir. Genel amaçlı ChangeProperty yordamı AllowBypassKey özelliğini ayarlamayı dener ve özellik bulunamazsa CreateProperty yöntemini kullanarak özelliği Özellikler koleksiyonuna ekler. Bu gerekli bir işlemdir çünkü AllowBypassKey özelliği eklenene kadar Özellikler koleksiyonunda gösterilmez.

Sub SetBypassProperty()Const DB_Boolean As Long = 1    ChangeProperty "AllowBypassKey", DB_Boolean, FalseEnd SubFunction ChangeProperty(strPropName As String, _    varPropType As Variant, _    varPropValue As Variant) As Integer    Dim dbs As Object, prp As Variant    Const conPropNotFoundError = 3270    Set dbs = CurrentDb    On Error GoTo Change_Err    dbs.Properties(strPropName) = varPropValue    ChangeProperty = TrueChange_Bye:    Exit FunctionChange_Err:    If Err = conPropNotFoundError Then ' Property not found.        Set prp = dbs.CreateProperty(strPropName, _            varPropType, varPropValue)        dbs.Properties.Append prp        Resume Next    Else        ' Unknown error.        ChangeProperty = False        Resume Change_Bye    End IfEnd Function

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Abonelik avantajlarını keşfedin, eğitim kurslarına göz atın, cihazınızın güvenliğini nasıl sağlayacağınızı öğrenin ve daha fazlasını yapın.

Topluluklar, soru sormanıza ve soruları yanıtlamanıza, geri bildirimde bulunmanıza ve zengin bilgiye sahip uzmanlardan bilgi almanıza yardımcı olur.