الإخوة الكرام
السلام عليكم ورحمة الله وبركاته وبعد
رغم أنني لا أحب الخوض كثيراً في مسألة الحماية إلا أنني وجدت من الإخوة في هذا المنتدى حماساً كبيراً للحماية بإلغاء خاصية الشفت وكأنها الحل الأجدى والأنسب ولم أجد طرحاً معارضاً لهذا التوجه
لذا أحببت أن أطرح هذا الموضوع في هذا الوقت بالذات رغم أنه كان يجول في ذهني منذ ما يزيد عن عام ، وذلك رغبة في ألا نتكل على حماية من هذا النوع
أكرر هنا سؤالي الذي طرحته في العنوان : هل حماية إلغاء الشفت آمنة ؟
أدع الإجابة للدالة التالية دون أي تعليق إذ إنا في انتظار التعليق منكم
Public Function del_shift_prop(mdb As String)
Dim db As DAO.Database
Dim prp As DAO.Property
Dim wrkJet As Workspace
On Error Resume Next
Set wrkJet = DBEngine.Workspaces(0)
Set db = wrkJet.OpenDatabase(mdb)
db.Properties("AllowBypassKey").Value = True
If Err.Number = ErrPropNotFound Then
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append prp
End If
Err.Clear
End Functionتحياتي
أخوكم / أبو هاجر
