عدم فتح القاعدة عند استخدام مفتاح شيفت

[tiger wanted]

هل هناك طريقة فى اكسس عند استخدام مفتاح شيفت لاتفتح قاعدة البيانات وشكرا لكل اعضاء وادارة المنتدى

[محمد أبوعبدالله]

السلام عليكم

غير امتداد الملف من accdb / accde الى accdr

تحياتي

[tiger wanted]

شكرا ولكن اريد الحل عن طريق الكود

[ابو تراب]

28 دقائق مضت, tiger wanted said:

شكرا ولكن اريد الحل عن طريق الكود

Dim prop As Property
        On Error GoTo SetProperty
        Set prop = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False)
        
        CurrentDb.Properties.Append prop
        
SetProperty:
        If MsgBox("Would you like to turn on the Bypass Key?", vbYesNo, "Allow Bypass?") = vbYes Then
            CurrentDb.Properties("AllowBypassKey") = True
        Else
            CurrentDb.Properties("AllowBypassKey") = False
        End If

 

[tiger wanted]

اين يتم وضع الكود لقد وضعته فى حدث الفتح عند النموذج ولم يعمل هل يعمل مع وحدة نمطية برجاء الافادة وشكراء

[tiger wanted]

برجاء الافادة فى هذا الموضوع

 

[ابو تراب]

ضع مثال لتجريب عليه

[tiger wanted]

تم ارفاق ملف

duplicat.rar

[ابو تراب]

وضعتها في النموذج tab1

 

duplicat.accdb

[ازهر عبد العزيز]

ولا اروع من هذا🌹