عمل بلوك تلقائى بعد 5 ايام ويكون فكه مشروط مع اظهار رسالة تنبيه قبلها بيومين تظهر كل مرة عند فتح البرنامج او غلقه

[Abdelaziz Osman]

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

مرفق ملف اكسيس مطلوب له 

عمل بلوك تلقائى لادخال اي بيانات بسجلات النموذج بالكامل بعد 5 ايام ويكون فكه مشروط بالضغط نعم على الحقل mark كما هو موضح الصورة مع اظهار رسالة تنبيه قبلها بيومين تظهر كل مرة عند فتح البرنامج او غلقه محتوى الرسالة " لابد بالموافقة بنعم لاتاحة الادخال)

وايضا عند الضغط بنعم يتم تلقائيا بكتابة جملة ( تم التسليم) فى حقل supplier كما هو موضح بالصورة

وايضا عند استكمال بيانات السجل بالكامل اذا كان الحقل P Odate  خالى بدون اي بيانات يتم اظهار رسالة تنبيه ان الحقل P Odate محتوى الرسالة هى   "يرجى ادخال تاريخ التسليم"

 

Datab.accdb

[Abdelaziz Osman]

منتظر من معليمنا الكرام المساعدة

[Foksh]

لا اعتقد اني فهمتك بشكل صحيح 

ولكن جرب التعديل التالي .

 

Datab.accdb

[Abdelaziz Osman]

بالغ التحية استاذنا @Foksh

لكنى اعتقد ان رسالة التنبيه " يرجى الموافقة على ادخال البيانات"  سوف تظهر دائما اريد تلك الرسالة فى حالة ان الحقل mark فى وضع "لا" كرسالة تحذيرية تستمر لمدة 5 ايام فقط بعد الخمس ايام اذا لم تكن الادخال السابق للحقل mark  فى وضع "نعم"

وياتى المستخدم فتح النموذج ويحاول ادخال اي بيانات فى باقى الحقول يجد ان الحقول جميعها لاتقبل الادخال  فيما عادا الادخال السابق للحقل mark عندما يضغط عليه ويختار نعم تصبح باقى الحقول نشطة وتقبل الادخال

لانه بذلك قد حقق الشرط الذى كانت بصدده تظهر بخصوصة رسالة التنبيه

 

 

المفهوم الذى اريد اصله لك  ان العمود mark سيكون لمستخدم (س)  وباقى الحقول لمستخدم(ص)

واذا لم يقوم المستخدم (س) بالموافقة على الاستلام لن يستطيع المستخدم(ص) بعمل خطوة جديدة دون استكمال (س) للعمل المطلوب منه والموافقة على السجل القديمة اولا ويوافق عليها خلال 5 ايام

وانا بدورى ساجعل العمود mark مخصص فقط للمستخدم (س)  , وباقى الحقول مخصصة فقط للمستخدم(ص)

ارجوا المساعدة

[Abdelaziz Osman]

واستفسار اخر هل كتابة الكود التالى صحيح

Private Sub Form_BeforeUpdate(Cancel As Integer)  
		If IsNull(Me.P_Odate) Then
        MsgBox "ادخل التاريخ البدء", vbExclamation, ""
       		Else
        If IsNull(Me.exbict) Then
       MsgBox "ادخل تاريخ الانتهاء", vbExclamation, ""
        Cancel = True
    End If
End Sub

لان هذا الكود يعطى لى رسالة خطأ التالية

[Foksh]

منذ ساعه, Abdelaziz Osman said:

لان هذا الكود يعطى لى رسالة خطأ التالية

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If IsNull(Me.P_Odate) Then
        MsgBox "الرجاء إدخال تاريخ البدء", vbExclamation, ""
        Cancel = True
    ElseIf IsNull(Me.exbict) Then
        MsgBox "الرجاء إدخال تاريخ الانتهاء", vbExclamation, ""
        Cancel = True
    End If
End Sub

 

[Abdelaziz Osman]

منتظر ان تساعدنى فى  الموضوع السابق