هل من الممكن طرقة عدم اضافه علي جدول بعد مدة زمنيه محدده

[ayman42002]

الاخوه الاقاضل .................. يحفظكم الله

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

عندي جدول في قاعدة بيانات واريد بعد مده معينة عدم اضافة اوحذف او تعديل اي بيانات في هذا الجدول

فهل من طريقه

وشكرا

[بو يوسف الراشد]

توجد طريقة باتباع التالي::

1.إضافة متغير في بداية الشفرة البرمجية الخاصة بالنموذج لحساب الوقت الحالي وصيغتها كالتالي:

Dim MyTime As Date

2.عند حدث "بعد التحديث" Form_AfterUpdate الخاص بالنموذج قم بوضع الكود التالي:

MyTime = Now()

3.عند حدث "في الحالي" Form_Current الخاص بالنموذج قم بوضع الكود التالي:

MyTime = Now()

4.اجعل الفاصل الزمني لعداد الوقت (TimerInterval) يساوي 1000 5.عند حدث "عند عداد الوقت" OnTimer الخاص بالنموذج ضع الكود التالي :

If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("n", 1, MyTime) Then
Add.Enabled = False
Delete.Enabled = False
Edit.Enabled = False
End If

سيتم جعل الأزرار الخاصة بـ (الإضافة - الحذف - التعديل) البيانات غير ممكنة (False=Enable) بعد دقيقة من عدم استخدامك للنموذج

إليك المثال المرفق فيه ما تم شرحه

Db1.rar

[ayman42002]

مشكور وما قصرت