منع التعديل فى السجلات السابق حفظها بالكود

[مهند]

عندي نموذج لدرجات الطلاب وعملت له صلاحيات لــ ( الفتح - الاضافة - التعديل - الحذف)

وسؤالي محصور في صلاحيات( التعديل):

اريد ان اضع كود يمنع التعديل في السجلات السابقة او او يجعلها غير ممكنه اي لايمكن اختيار اي سجل من السجلات السابقة ((بمجرد خروجي من السجل يصبح السجل لا يمكن اختيارة) ) سواءًَ بعد الضغط على مفتاح الادخال (Enter) او مفتاح (Tab) وانتقال المؤشر الى السجل التالي

الخلاصة( جعل السجلات السابقة غير ممكن(Enabled)) الوصول اليها الا اذا اعطيت صلاحيات التعديل للمستخدم

[محمد طاهر عرفه]

هل الصلاحيات بالكود ؟ أم بصلاحيات الاكسيس

بصفة عامة ، لمنع التعديل فى السجلات السابق حفظها ( عدا اضافة سجل جديد)

نضع الكود التالي فى حدث قبل التعديل لكل من عناصر التحكم المطلوب عدم تعديل بيانات السجلات بها

Private Sub name_BeforeUpdate(Cancel As Integer)
If Not Me.NewRecord Then
  Cancel = True
  SendKeys "{ESC}"
 End If
End Sub

و يمكن اضافة باسوورد مثلا ، أو مراجعة من المستخدم الحالي اذا كانت الصلاحيات بالكود

مع تحياتي

[أبو هادي]

السلام عليكم

كما يمكن عن طريق هذا الحدث مع المعذرة لأخي محمد :

Private Sub Form_Current()
  If Me.NewRecord Then
    Me.AllowEdits = True
  Else
    Me.AllowEdits = False
    Me.AllowDeletions = False
  End If
End Sub

تحياتي .

تم تعديل يونيو 29, 2004 بواسطه أبو هادي