[ تمت الإجابة ] عدم تحرير السجل بعد مرور 8 ساعا

اخي الفاضل فيصل

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

وكل عام وانتم بخير وتقبل الله منا ومنكم صالح الأعمال

لعدم التعديل على السجلات بعد مضي اكثر من 8 ساعات على تحرير السجل يلزمنا عمل التالي

1. اضافة حقل جديد الى الجدول المطلوب وسوف نعطيه اسم مثلا EnterTime "وقت الإدخال" ويكون نوعه تاريخ / وقت وتنسيقه General Date ( تنسيق تاريخ ووقت طويل ) والقيمة الإفتراضية Now()

2. نقوم بإضافته الى النموذج المطلوب بنفس الخصائص السابقة

3. نضيف حقل جديد غير منضم الى النموذج ونعطيه الإسم strTime وهو التاريخ و الوقت الحالي ويكون مصدر عنصر التحكم له الدالة Now وتنسيقة General Date

4. من حدث عداد الوقت للنموذج نضع هذا التعبير

Private Sub Form_Timer()
Me.strTime.Requery
End Sub

والفاصل الزمني له 1000

5. نقوم بإخفاء هذين الحقلين وهما EnterTime و strTime من النموذج بحيث لا يظهران للمستخدم .

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Me![strTime] > DateAdd("h", 8, [EnterTime]) Then
  MsgBox "عذرا أخي فيصل ... لا يمكن التعديل بعد مضي 8 ساعات ", vbCritical, "ممنوع التعديل"
  Me.Undo
  Me.AllowEdits = False
  End If
  End Sub

zaNoAllowEditsAfter8H_UP.rar

ملاحظة : تم تعديل المثال السابق

تذكر ان الحقلين EnterTime و strTime مخفيين في النموذج

للتجربه

قمت بتعديل وقت جهاز الكمبيوتر الى التاريخ والوقت 10/10/2007 01:15:15 م ظهرا لكي اكتب السجلات

وبعد ثمان ساعات على اضافة هذه السجلات بمعنى بعد الساعة 10/10/2007 09:15:15 م م لن تستطيع التعديل على السجلات

حاول الآن تقديم ساعة الكمبيوتر الى الساعة 11 مساءا وانظر الرسالة التي تظهر لك

بسم الله الرحمن الرحيم

بارك الله فيكِ زهرة المنتدى

سوف أجرب غدا إن شاء الله في مقر العمل

===

السلام عليكم ...

كل والشهر عليكم مبارك ...

مثال جميل من الأستاذة زهرة يعطيك العافية .

أخي فيصل اسمح لي أن أضع توقيع ( اسطوانة المبرمج ) فأنا وأنت في الهوى سوى .. وسلم لي على سمير .

السلام عليكم

الفاضلة الاخت زهرة

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

او حتى بعد عدة ايام عندما استخدمتي Time()

بعد التعديل الاخير - بــ Now() ضبط الكود وفقك الله

كل عام والجميع بخير

Ekseer

صفر واحد كتب:

السلام عليكم ...

كل والشهر عليكم مبارك ...

مثال جميل من الأستاذة زهرة يعطيك العافية .

أخي فيصل اسمح لي أن أضع توقيع ( اسطوانة المبرمج ) فأنا وأنت في الهوى سوى .. وسلم لي على سمير .

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

اسئلة الاخ فيصل نتعلم منها ؟

السلام عليكم

أخت زهرة الله يعطيك العافية

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

اي 1/1/2007 الساعة 9 صباحا ثم حاولنا التعديل الساعة 10 صباحا من ثاني يوم يسمح بالتعديل

قم بالتعديل على ملفك واستخدمت طريقة أخرى مع حدث on current بحيث إن كان أقل من 8 ساعات

يجعل AllowEdits = True و إن كان أكثر من 8 ساعات يجعل AllowEdits = False

شاهدوا المرفق

والسلام عليكم

zaNoAllowEditsAfter8H_UP.zip

قد يكون هذه الكود المعدل من كود الأخت زهرة يفي بالغرض دون الحاجة لعمل حقل غير منضم ودون الحاجة للمؤقت

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Now() > DateAdd("h", 8, [EnterTime]) Then
	MsgBox "لا يمكن التعديل بعد مضي 8 ساعات ", vbCritical, "ممنوع التعديل"
	Cancel = -1
  End If
End Sub

بسم الله الرحمن الرحيم

ماشاء الله تبارك الله

100 %

كان حل الأخت زهرة متوافق مع بريمجي 100 %

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

===

هل استطيع ان اعطي احد هو الذى يستطيع ان يعدل بعد 8 ساعات التى مضت

يعدل البيانات

يعني يكون له رقم سري في التعديل

بسم الله الرحمن الرحيم

اقوم بتنفيذ الكود السابق عند حدث التنقل بين السجلات

فاذا أردت أن يكون شخص له القدرة على التحرير حتى بعد الــ 8 ساعات ضع مربع نص وزر أمر على النموذج

بحيث يدخل الرقم السري في مربع النص و حينما تضغط زر الأمر يقوم بعملية المقارنة هل الرقم المدخل صحيح أو لا

فاذا كان صحيحا يقوم بتحويل صفة Enable للنموذج إلى مسموح .

التحليل السابق نظريا ولم أنفذه .

===

السلام عليكم

كيف استطيع ان اضع بدل الساعات

مثل 40 دقيقة

او

20 دقيقة

يعني اقل من الساعة

moom2007 كتب:

السلام عليكم

كيف استطيع ان اضع بدل الساعات

مثل 40 دقيقة

او

20 دقيقة

يعني اقل من الساعة

اخي الفاضل

الموضوع سهل ولا يوجد به اي صعوبه

كل ما عليك هو التعديل في الكود الموجود في البرنامج وستجده بهذا الشكل

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Me![strTime] > DateAdd("h", 8, [EnterTime]) Then
  MsgBox "عذرا أخي فيصل ... لا يمكن التعديل بعد مضي 8 ساعات ", vbCritical, "ممنوع التعديل"
  Me.Undo
  Me.AllowEdits = False
  End If
  End Sub

لاحظ حرف h فهو يمثل الساعات

وبالنسبة لك انت تريده دقائق فقم بتغيير الحرف h الى n

وقم بتغيير الرقم 8 الذي بعد حرف h الى 40 او 20 وهي الدقائق بالنسبة لك ليصبح الكود كاملا بهذه الطريقة بعد التعديل

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Me![strTime] > DateAdd("n", 40, [EnterTime]) Then
  MsgBox "عذرا أخي فيصل ... لا يمكن التعديل بعد مضي 40 دقيقه ", vbCritical, "ممنوع التعديل"
  Me.Undo
  Me.AllowEdits = False
  End If
  End Sub

مشكور على الرد

يعطيج العافية

السلا م عليكم

كيف الحال

هل استطيع انا اجعل حماية ليس لكل السجلات

يعنى كل سجل له وقت

يعني عنده

عدد من السجلات

نوع الاجاز

مده الاجازه

تاريخ الاجازه نهاية الاجازه

مثل انا ادخلت نوع الاجازه فقط ثم بعد ساعتين ادخلة مده الاجازه ثم بعد 3 ساعات ادخلة تاريخ الاجازه

اريد بعد الادخال لا احد يستطيع التعديل نوع الاجازه يعني بعد ساعتين من ادخال نوع الاجازه لا اتسطيع التعديل بل استطيع فقط ادخال البقية

اتمنا الفكرو ان تكون واضعه

moom2007 كتب:

السلا م عليكم

كيف الحال

هل استطيع انا اجعل حماية ليس لكل السجلات

يعنى كل سجل له وقت

يعني عنده

عدد من السجلات

نوع الاجاز

مده الاجازه

تاريخ الاجازه نهاية الاجازه

مثل انا ادخلت نوع الاجازه فقط ثم بعد ساعتين ادخلة مده الاجازه ثم بعد 3 ساعات ادخلة تاريخ الاجازه

اريد بعد الادخال لا احد يستطيع التعديل نوع الاجازه يعني بعد ساعتين من ادخال نوع الاجازه لا اتسطيع التعديل بل استطيع فقط ادخال البقية

اتمنا الفكره ان تكون واضعه

هلا والله

محد رد عليها

وين اهل الخبره