تنطبق هذه المقالة فقط على مشروع Microsoft Access (.adp).

متوسطة: يتطلب ماكرو الأساسية ترميز والمهارات إمكانية التشغيل المتداخل.

ملخص

توضح هذه المقالة كيفية تعطيل وظيفة المفتاح SHIFT تسمح لك بتجاوز خيارات بدء التشغيل. توضح هذه المقالة أيضا كيفية فرض خيارات بدء التشغيل في مشروع قاعدة بيانات Microsoft Access.

مزيد من المعلومات

خيارات بدء التشغيل التي تم تعريفها لملف Access تحديد كيفية ظهور الملف وسلوك الملف عند فتح الملف. يمكنك تعيين خيارات بدء التشغيل باستخدام واجهة المستخدم لبدء التشغيل أو باستخدام ماكرو AutoExec .

لتجاوز خيارات بدء التشغيل التي تم تعيينها لمشروع قاعدة البيانات، اضغط باستمرار المفتاح SHIFT أثناء فتح مشروع قاعدة بيانات Access.

بدلاً من ذلك، لفرض خيارات بدء التشغيل التي تم تعيينها لمشروع قاعدة بيانات Access، قم بتعطيل وظيفة المفتاح SHIFT الذي يسمح لك بتجاوز خيارات بدء التشغيل. للقيام بذلك، تعيين الخاصية اللووبيباسكي إلى False.

لتعيين الخاصية اللووبيباسكي إلى False، اتبع هذه الخطوات.

الخطوات الخاصة بمشروع Access (.adp)

  1. ابدأ تشغيل Access.

  2. فتح مشروع قاعدة بيانات Access.

  3. اضغط على ALT + F11 لفتح محرر Visual Basic.

  4. في محرر Visual Basic، انقر فوق
    الإطار الحالي في القائمة عرض .

  5. اكتب التعليمة البرمجية التالية أو قم بلصق التعليمة البرمجية التالية في الإطار الحالي، وثم اضغط ENTER.

    CurrentProject.Properties.Add "AllowBypassKey", False
  6. قم بإغلاق "محرر Visual Basic"، وقم بإغلاق مشروع قاعدة بيانات Access.

  7. فتح مشروع Access قاعدة البيانات. في محاولة لتجاوز خيارات بدء التشغيل التي تم تعيينها لمشروع قاعدة بيانات Access بضغط المفتاح shift باستمرار أثناء فتح مشروع قاعدة بيانات Access.

    تم تعطيل وظيفة المفتاح SHIFT الذي يسمح لك بتجاوز خيار بدء التشغيل. على الرغم من أن تضغط باستمرار على المفتاح SHIFT لتجاوز خيارات بدء التشغيل، يتم تنفيذ خيارات بدء التشغيل. لا يمكن تجاوز خيارات بدء التشغيل.

الخطوات الخاصة بقاعدة بيانات Access (.mdb أو.accdb)

  1. ابدأ تشغيل Access.

  2. إنشاء وحدة نمطية جديدة ثم قم بإضافة وظيفتين التالية:

    Function ap_DisableShift()
    'This function disable the shift at startup. This action causes
    'the Autoexec macro and Startup properties to always be executed.

    On Error GoTo errDisableShift

    Dim db As DAO.Database
    Dim prop as DAO.Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False

    'The function is successful.
    Exit Function

    errDisableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
    dbBoolean, False)
    db.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function 'ap_DisableShift' did not complete successfully."
    Exit Function
    End If

    End Function

    Function ap_EnableShift()
    'This function enables the SHIFT key at startup. This action causes
    'the Autoexec macro and the Startup properties to be bypassed
    'if the user holds down the SHIFT key when the user opens the database.

    On Error GoTo errEnableShift

    Dim db as DAO.Database
    Dim prop as DAO.Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line of code disables the SHIFT key on startup.
    db.Properties("AllowByPassKey") = True

    'function successful
    Exit Function

    errEnableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
    dbBoolean, True)
    db.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function 'ap_DisableShift' did not complete successfully."
    Exit Function
    End If

    End Function
  3. في محرر Visual Basic، انقر فوق الإطار الحالي في القائمة عرض .

  4. إذا كنت تريد تعطيل مفتاح SHIFT، اكتب ap_DisableShift في إطار فوري واضغط ENTER. إذا أردت تمكين مفتاح shift، اكتب ap_EnableShift في إطار فوري واضغط ENTER.

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات

استكشاف التدريب >

الحصول على الميزات الجديدة أولاً

الانضمام إلى MICROSOFT INSIDERS >

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

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

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

×