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, False End Sub Function 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 = True Change_Bye: Exit Function Change_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 If End Function