مساعدة في تجميد صف في النموذج الفرعي للاجازات

[amir_adam83]

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

برجاء المساعدة في تجميد صف في النموذج الفرعي

 

تم استخدام هذا الكود ولم يظبط معي مثل هذا

Private Sub Appro_Click()
On Error Resume Next
If IsNull(Me.Appro.Value = False) Then
Me.ID.Enabled = True = Me.ID.Enabled = True
Me.DatRet.Enabled = True
Me.DatDay.Enabled = True
Me.Dour.Enabled = True
Me.DatBr.Enabled = True
Me.DatRetIn.Enabled = True
Me.TypBr.Enabled = True
Else
MsgBox "عفول تم اغلاق ملف الاجازه هذا لايمكن التعديل علية", vbCritical, "تنبية"
Me.ID.Enabled = True = Me.ID.Enabled = False
Me.DatRet.Enabled = False
Me.DatDay.Enabled = False
Me.Dour.Enabled = False
Me.DatBr.Enabled = False
Me.DatRetIn.Enabled = False
Me.TypBr.Enabled = False
End If
End Sub

وتظهر لي عند تشغيل النموذج بهذه الصوره

 

 

 

 

ومرفق قاعدة البيانات شكرا لكم

 

الاجازات.rar

[biskra]

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

Private Sub Form_Current()
  Me.TypBr.Locked = Me.Appro
  Me.DatRetIn.Locked = Me.Appro
    Me.DatBr.Locked = Me.Appro
  Me.Dour.Locked = Me.Appro
    Me.DatDay.Locked = Me.Appro
  Me.DatRet.Locked = Me.Appro
End Sub

 

الاجازات.rar

[kha9009lid]

تم تعديل المشاركة لوجود خطأ يؤدي الى عدم امكانية اضافة اجازة جديدة

تحياتي

 

 

 

تم تعديل فبراير 20, 2021 بواسطه kha9009lid

[kha9009lid]

تم تعديل الخطأ بسبب التعارض مع كود لاخينا صاحب السؤال

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

 

الاجازات.accdb

تم تعديل فبراير 20, 2021 بواسطه kha9009lid

[amir_adam83]

11 hours ago, kha9009lid said:

تم تعديل الخطأ بسبب التعارض مع كود لاخينا صاحب السؤال

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

 

الاجازات.accdb 592 kB · 2 downloads

kha9009lid

شكرا استاذي الكريم هذا هو المطلوب بالفعل

[kha9009lid]

36 دقائق مضت, amir_adam83 said:

شكرا استاذي الكريم هذا هو المطلوب بالفعل

الشكر لله استاذ امير 🌹