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

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

موضوع الشفت واخفاء شاشة الأكسيس هي من امور الحماية البسيطة التي يرغب المبرمج بإضافتها الى برنامجه لكي لا يعبث احدا به من المستخدمين

حسنا ما هو المقصود اساسا بمفتاح الشفت ؟؟؟؟

مفتاح الشفت هو المفتاح الموجود على لوحة المفاتيح والذي اذا تم الضغط عليه بدون ان نقوم بإفلاته ومن ثم نقوم بإختيار اي قاعدة بيانات تم عدم تمكين خاصية مفتاح الشفت عليها من خلال الضغط لعى قاعدة البيانات بالماوس الأيمن ثم اختيار فتح وهنا يتم فتح القاعدة بكامل محتوياتها وعند فتح القاعدة نرفع اصبعنا عن مفتاح الشفت اذا الخطوات كالتالي :

1. اضغط على مفتاح الشفت في لوحة المفاتيح بدون افلاته

2. اختيار قاعدة بيانات تم عدم تمكين الشفت لها من خلال الضغط بالماوس الأيمن عليها ثم اختيار من القائمة فتح

3. بعد فتح قاعدة البيانات بكامل محتوياتها نرفع يدنا عن مفتاح الشفت .

هذه الطريقة تصلح لجميع قواعد البيانات ولجميع نسخ الأكسيس ولكن هناك بعض الإختلافات في الأكواد حسب نسخة الأكسيس فكود نسخة اكسيس 2003 يختلف عن نسخة اكسيس 2007

كيف نقوم بتعطيل وتمكين خاصية مفتاح الشفت بواسطة الكود

هناك طريقتين لعمل ذلك :

الطريقة الأولى : عن طريق قاعدة بيانات خارجية منفصله تماما وبها كود تعطيل وتمكين مفتاح الشفت كمثل هذا البرنامج

za-En-Dis-SHIFT.rar

الطريقة الثانية : عن طريق وضع اكواد تعطيل وتمكين الشفت في نفس القاعدة ويتم استدعاء كود التعطيل وكود التمكين بواسطة ازرار امر مخفيه في نموذج البدايه

بحيث عند الضغط على زر تعطيل الشفت يتم التعطيل بعد اغلاق وفتح قاعدة البيانات وكذلك بالنسبة لزر تمكين الشفت

حسنا عرفنا تعطيل وتمكين مفتاح الشفت في اكسيس 2003 ماذا عن اكواد اكسيس 2007

كما ذكرنا سابقا ان الإجراء هو نفسه ولكن نظرا لإختلاف نسخ الأكسيس فإن الكود سيختلف قليلا لهذه الخاصية وسيكون

كود تعطيل مفتاح الشفت ( اكسيس 2007 )

Function za_DisableShift()
On Error GoTo errDisableShift

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

Set db = CurrentDb()

db.Properties("AllowByPassKey") = False

Exit Function

errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'za_DisableShift' did not complete successfully."
Exit Function
End If

End Function

كود تمكين الشفت ( اكسيس 2007 )

Function za_EnableShift()
On Error GoTo errEnableShift

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

Set db = CurrentDb()

db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'za_DisableShift' did not complete successfully."
Exit Function
End If

End Function

مثال على اكسيس 2007

za-Mostodat-UP.rar

انتهينا من تمكين وتعطيل مفتاح الشفت الآن ننتقل الى اخفاء شاشة الأكسيس

ما هو الغرض من اخفاء شاشة الأكسيس ؟؟

الغرض من اخفاء شاشة الأكسيس هو عدم تمكين المستخدمين من الإطلاع على محتويات القاعدة او التعديل عليها ولهذا يقوم المبرمج بإخفاء كامل اطار برنامج الأكسيس وإظهار فقط نموذج عائم او تقرير منبثق للمستخدم وتكون مهمة المستخدم هي ادخال البيانات او الإطلاع فقط بدون الدخول على كائنات القاعدة الأخرى .

ولهذا لو بحثنا في المنتدى لوجدنا مئات الأسئلة والإجابات التي تتحدث وتشرح هذه الخاصية بكل وضوح ولا نعتقد ان اي شخص يجهل مثل هذه المواضيع

بالتوفيق

السلام عليكم

استاذتنا واختنا الفاضلة زهرة العظيمة الغالية

تحية طيبة مباركة

كم اغرقتينا بالاجابات والمواضيع المهمة الشيقة...جذاكى الله خيرا

ان هذا الموضوع من الاهميه بمكان..ولكن اين اكسس 2003 فى الطريقة الثانية ...برجاء مثال بالطريقة الثانية على اكسس 2003 لو تفضلت علينا

والسلام عليكم

جزاكم الله خيرا

اليوم كنت افكر في تأمين قاعدة بياناتي بالشركة

فالله الحمد و المنة

نسأل الله ان يجمعنا و اياكم في الجنة

بارك الله فيكم