عدم امكانية التعديل على البيانات بعد انتهاء اليوم

[زهراء محمد]

السلام عليكم

في المرفق مطلوب السماح للمستخدم بالتعديل على البيانات الموجوده في النموذج ( frmB)بنفس اليوم وبعد انتهاء اليوم لايستطيع التعديل عليها الا اذا تضمن اسم الدكتور  كلمة (مؤجل)عندها يستطيع التعديل في اي وقت . ودمتم بخير

sick.rar

[عمر ضاحى]

25 دقائق مضت, زهراء محمد said:

السلام عليكم

في المرفق مطلوب السماح للمستخدم بالتعديل على البيانات الموجوده في النموذج ( frmB)بنفس اليوم وبعد انتهاء اليوم لايستطيع التعديل عليها الا اذا تضمن اسم الدكتور  كلمة (مؤجل)عندها يستطيع التعديل في اي وقت . ودمتم بخير

sick.rar 26.44 kB · 0 downloads

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.cdatee = Date Then
        Exit Sub
    End If
    
    If InStr(Me.Doctor, "مؤجل") > 0 Then
        Exit Sub
    End If
    Undo
    MsgBox "غير مسموح بالتعديل على البيانات", vbExclamation
    Cancel = True
End Sub

هنا انا بتحقق من شرطين 

التاريخ وكلمة مؤجل

اذا كان التاريخ يساوي تاريخ اليوم هيطلع من الاجراء ويكمل تحديث

واذا كان هناك كلمة مؤجل فى اسم الطبيب هيكمل الاجراء ويحفظ

اذا لا هيعيد القيمة القديمة ويلغي الحفظ

 

جرب ورد علينا بالنتيجة

[ابوخليل]

مشاركة مع اخي الاستاذ عمر

حل آخر باستخدام التنسيق الشرطي

 

sick2.rar

[زهراء محمد]

1- الاستاذ عمر ضاحي /شكرا جزيلا لك على سرعة الاستجابه . لكن يمكن تغيير البيانات بسهوله حتى لو بعد شهر وذلك بالدخول الى حقل اسم الطبيب وتغييره من (مصطفى) مثلا الى (مؤجل) ثم  نغير السعركما نريد ونرجع ونغير الطبيب من (مؤجل)الى (مصطفى)

2- الاستاذ ابو خليل / شكرا جزيلا لك. صيد ثمين .و ارجو ان تتكرم علي وتعلمني  كيف تم ذلك  وتجعلني شاكرا فضلك.

[ابوخليل]

19 دقائق مضت, زهراء محمد said:

و ارجو ان تتكرم علي وتعلمني  كيف تم ذلك  وتجعلني شاكرا فضلك.

انا عادة لا اطرح حلولا لموضوع بادر بالاجابة عنه احد اخوتي .. خاصة الخبراء منهم .. ولكني كنت اعمل على المثال حينما كان الاستاذ عمر يشارك

الأمر يسير :

1- افتح النموذج الفرعي على التصميم

2- انقر بزر الفأرة الأيمن على اي حقل

3- اختر من القائمة : التنسيق الشرطي اذا واجهاتك بالعربية او condition formating

مؤكد ستتضح لك المسألة

ملحوظة : انا قمت بتطبيق الشرط على جميع الحقول كل واحد على حدة كي يتم حماية السجل بالكامل

يمكنك الاكتفاء بتطبيقه على حقل واحد 

[زهراء محمد]

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