המאפיין AllowBypassKey

הגדרה

המאפיין AllowBypassKey משתמש בהגדרות הבאות.

באפשרותך להגדיר מאפיין זה על-ידי שימוש ב- מאקרו או בקוד Visual Basic for Applications‏ (VBA).

כדי להגדיר את המאפיין AllowBypassKey באמצעות מאקרו או קוד Visual‏ Basic for Applications‏ (VBA), עליך ליצור את המאפיין בדרכים הבאות:

• במסד נתונים של Microsoft Access ‏(‎.mdb או ‎.accdb), באפשרותך להוסיף את המאפיין באמצעות פעולת השירות CreateProperty וצירופו לאחר מכן לאוסף מאפיינים של אובייקט מסד הנתונים.

• ב- פרוייקט Microsoft Access ‏‎(‎.adp)‎, באפשרות להוסיף את המאפיין לאוסף ה- AccessObjectProperties של האובייקט CurrentProject באמצעות פעולת השירות Add.

הערות

עליך לוודא שהמאפיין AllowBypassKey מוגדר ל- True בעת איתור באגים ביישום.

הגדרת המאפיין AllowBypassKey אינה נכנסת לתוקף עד הפעם הבאה שבה ייפתח מסד הנתונים של היישום.

דוגמה

הדוגמה הבאה מציגה פרוצדורה הנקראת SetBypassProperty אשר עוקפת את שם המאפיין שמיועד להגדרה, את סוג הנתונים ואת ההגדרה שלו. הפרוצדורה למטרה כללית ChangeProperty מנסה להגדיר את המאפיין AllowBypassKey ואם המאפיין לא נמצא, היא משתמשת בפעולת השירות CreateProperty כדי לצרף את המאפיין לאוסף מאפיינים. זה הכרחי מכיוון שהמאפיין AllowBypassKey אינו מופיע באוסף מאפיינים עד להוספתו.

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