منع المستخدم من اضافة سجلات جديدة او تعديل او حذف سجلات في نموذج اكسس

منع المستخدم من اضافة سجلات جديدة او تعديل او حذف سجلات في نموذج اكسس 

قد يحتاج المبرمج لسبب او لاخر منع المستخدمين من اضافة سجلات جديد او تعديل او حذف السجلات، ولتحقيق ذلك يوجد عدة طرق وهنا سنتطرق الى طريقتين:

1- المنع باستخدام خصائص النموذج

ونستخدم هذة الطريقة اذا اردنا منع هذة الخصائص بشكل نهائي 

ويتم ذلك من خلال الدخول الى خصائص النموذج ومن ثم الى القائمة (Data) ويتم تخيير القيم الى NO الموجودة امام ما يلي:

Allow Additions = السماح باضافة سجل جديد

Allow Deletions= السماح بحذف سجل

Allow Edits= السماح بتعديل سجل

2- المنع باستخدام الكود

وفي هذة الطريقة يتم المنع عند تحقق شرط معين وبالتالي فان المنع يكون مؤقت ( مثلا اذا كانت المستخدم لا توجد له صلاحيات معينة فان الكود يقوم بمنع الاضافة او التعديل او الحذف)

حسب المثال التالي عند فتح النموذج اذا كان تاريخ اليوم اكبر من 01\01\2016 فانه سيتم ايقاف صلاحية اضافة سجل وصلاحية تعديل سجل

VBA

Private Sub Form_Open(Cancel As Integer)
If Now() > 1 / 1 / 2016 Then
    Me.AllowAdditions = False
    Me.AllowEdits = False
End If
End Sub