لدى نموذج رئيسى ونموذج فرعى مرتبطين برقم الموظف
المطلوب ان يكون النموذج باكملة للقراءة فقط ولا يسمح بالتعديل علية الى فى حالة الضغط على زر لتشيط النموذج للحذف والأضافة
وإن أمكن ان يكون الزر برقم سرى يطلب لمرة واحد فقط ولا يطلب بعد ذلك الإ فى حالة اغلاق النموذج وفتحة
وجزاكم الله خيرا
افتح النموذج الرئيسي في عرض التصميم >> إفتح خصائص النموذج >> في صفحة البيانات Data قم بتعديل الخصائص التالية :
Allow Edits = No
Allow Deletions = No
Allow Additions = No
إغلق واحفظ التغييرات ، جرّب التعديل و الحذف و الإضافة على الرئيسي و الفرعي
اعمل زر لفتح نموذج طلب كلمة السر و في حدث عند النقر اكتب الكود التالي :
DoCmd.OpenForm "Password Entry", acNormal, "", "", , acDialog
على فرض أن نموذج كلمة السر اسمه Password Entry
في نموذج Password Entry اعمل حقل و سمه PW
اعمل زر لفك الإغلاق و في حدث عند النقر اكتب الكود التالي :
With CodeContextObject
If (.PW <> 1234) Then
Beep
MsgBox "The password you entered is not correct, The correct password is 1234", vbOKOnly, "Salah69"
End If
If (.PW = 1234) Then
Forms!Employee.AllowEdits = True
Forms!Employee.AllowAdditions = True
Forms!Employee.AllowDeletions = True
Forms!Employee!EmployeeSub.Form.AllowEdits = True
Forms!Employee!EmployeeSub.Form.AllowAdditions = True
Forms!Employee!EmployeeSub.Form.AllowDeletions = True
DoCmd.Close acForm, "Password Entry"
End If
End With
أغلق و احفظ و جرب
Employee اسم النموذج الرئيسي
EmplyeeSub اسم النوذج الفرعي
1234 كلمة السر ( بيني و ينك )
اخى جزاك الله كل خير على مجهودك الرائع
هذا الموضوع مغلق.