قفل التعديل على البيانات المدخلة بعد وقت ؟؟

[ابو عبدلله]

السلام عليكم

وبعد الشكر للجميع "ادارة ومشرفين واعضاء وزوار"

فسؤالي هو هل بالإمكان ايقاف التعديل على بيانات تم ادخالها وليكون بعد مضي يوم واحد على الأقل

والغاية منها منع المستخدم من التلاعب بالبيانات ؟؟

المثال بالمرفقات

بارك الله بكم

emp.rar

[ابوخليل]

Private Sub Form_Current()
If Me.fldate < Date Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub

باعتبار flddate هو حقل التاريخ في النموذج

db2.rar

[محمد سلامة]

شكرا استاذنا ابوخليل

اخي الكريم 

اجعل نموذج الادخال للادخال فقط 

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

المهم هو ان لا تجعل نموذج واحد لادخال والتعديل والحذف

[ابو عبدلله]

السلام علكيم

أخي واستاذنا أبو خليل جزاك الله عني كل خير

لقد جربت الكود ولكن لم أنجح

فالمراد أنه عند تعديل خانة edate في الرئيسي ووضع تاريخ معين وليكون اليوم

فالمستخدم عندما يقوم بفتح البرنامج بعد الادخال بيوم مثلاً لا يستطيع التعديل على بيانات الرئيسي ولا الفرعي

ولكن يستطيع اضافة بيانات جديدة بتاريخ جديد

مع مراعات انه يستطيع التلاعب بتاريخ الجهاز وهكذا لا ينفع قفل البيانات

وماذا عن رسالة الخانة المفهرسة ؟؟؟

اعتذر على الاطالة مع تقدير واحترامي

[ابو عبدلله]

؟؟

[ابوخليل]

انا لم اطلع على المرفق بسبب الاصدار

ومادام يوجد نموذج رئيس وآخر فرعي فأرى ان طريقة اخونا محمد سلامة هي المناسبة والمضمونة

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

 

[ابوخليل]

 بحثت في المنتدى  عن  حماية او تعديل فرعي ولكن لم يظهر ما ابحث عنه

ولكن برزت لي فكرة لتخطي تغيير تاريخ الجهاز ويمكنك التجربة وتطبيقها

     وهي  جلب آخر تاريخ تم تسجيله في الجدول ثم مقارنته مع التاريخ الظاهر  في النموذج

               هذه الخطوة تحل مشكلة التلاعب في تاريخ الجهاز

 

[ابو عبدلله]

 

السلام عليكم

11 ساعات مضت, ابوخليل said:

انا لم اطلع على المرفق بسبب الاصدار

أخي أبو خليل لقد تم تعديل الاصدار علك تلقي نظرة أكون لك شاكراً

الفكرة تكمن بمنع التعديل على بيانات السجلات التي يمر على ادخالها يوم واحد

emp 2003.rar

[ابوخليل]

تفضل  هذا تطبيق للفكرة التي ذكرتها اعلاه

dty = DMax("edate", "employees")
If Me.edate < dty Then
Me.AllowEdits = False
Me.fvacations.Locked = True
Else
Me.AllowEdits = True
Me.fvacations.Locked = False
End If

 

db1.rar

[ابو عبدلله]

15 ساعات مضت, ابوخليل said:

تفضل  هذا تطبيق للفكرة التي ذكرتها اعلاه

كل الشكرالجزيل أخي واستاذنا أبوخليل على الفكرة و التطبيق

ولكن لاتمامها مازال موضوع الحذف مفعل أي بالامكان الحذف من سجلات الفرعي فكيف السبيل لايقافها ايضاً وجعلها False ؟؟

وهل نستطيع تغير هذه الرسالة ؟؟

مع كل التقدير

[ابوخليل]

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

لتصبح الجملة هكذا

dty = DMax("edate", "employees")
If Me.edate < dty Then
Me.AllowEdits = False
Me.fvacations.Locked = True
Me.fvacations.Form.RecordSelectors = False
Else
Me.AllowEdits = True
Me.fvacations.Locked = False
Me.fvacations.Form.RecordSelectors = True
End If

اما مسألة الرسالة فليس لها صلة بالموضوع

  والافضل ان تفرد لها سؤلا يخصها

[ابو عبدلله]

 

6 ساعات مضت, ابوخليل said:

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

اعتذر على الاطالة أخي أبو خليل والكود

 

6 ساعات مضت, ابوخليل said:

Me.fvacations.Form.RecordSelectors = False

يعمل بشكل صحيح ولكن عندما يكون لدي زر للحذف في الفرعي ماالعمل ؟؟

وبالنسبة لموضوع الفهرسة سأقوم بعمل مشاركة جديدة

مع تقديري

[ابوخليل]

العمل اننا نضيف سطر نحجب هذا الزر عند تحقق الشرط

Me.fvacations.Form!zer1.Visible = False

 

db1.rar

[ابو عبدلله]

14 ساعات مضت, ابوخليل said:

العمل اننا نضيف سطر نحجب هذا الزر عند تحقق الشرط

السلام عليكم وشكراً أخي واستاذنا أبو خليل على هذه الفكرة

ولكن هل من سطر لإلغاء عمل الزر مع ظهوره اي بعيداً عن الإخفاء

مع تقديري