الخاصية "AllowBypassKey"

يمكنك استخدام الخاصية ‏AllowBypassKey‏ لتحديد ما إذا كان يتم تمكين المفتاح SHIFT لتجاوز خصائص بدء التشغيل وماكرو AutoExec. على سبيل المثال، يمكنك تعيين خاصية ‏AllowBypassKey‏ إلى ‏False‏ لمنع مستخدم من تجاوز خصائص بدء التشغيل وماكرو AutoExec.

الإعداد

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

الإعداد

الوصف

True

تمكين مفتاح SHIFT للسماح للمستخدم بتجاوز خصائص بدء التشغيل وماكرو AutoExec.

False

تعطيل مفتاح SHIFT لمنع المستخدم من تجاوز خصائص بدء التشغيل وماكرو AutoExec.


يمكنك تعيين هذه الخاصية باستخدام الماكرو أو التعليمات البرمجية لـ 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
توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×