خاصية "السماح_بمفتاح_التجاوز"

الإعداد

تستخدم الخاصية ‏AllowBypassKey‏ الإعدادات التالية.

يمكنك تعيين هذه الخاصية باستخدام الماكرو أو التعليمات البرمجية لـ Visual Basic for Applications (‏‎‎VBA‏‎‎).

لتعيين للخاصية ‏AllowBypassKey‏ باستخدام ماكرو أو التعليمات البرمجية لـ Visual Basic for Applications (‏VBA)، يجب إنشاء الخاصية بالطرق التالية:

• في قاعدة بيانات Microsoft Access(التنسيق mdb. أو accdb.)، يمكنك إضافة الخاصية باستخدام الأسلوب ‏CreateProperty‏ وإلحاقه بمجموعة الخصائص لعنصر قاعدة البيانات.

• في مشروع Microsoft Access (التنسيق adp.)، يمكنك إضافة الخاصية إلى مجموعة AccessObjectProperties لعنصر المشروع الحالي باستخدام الأسلوب 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