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

[Abdelaziz Osman]

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

لدى نموذج يسمى LAP  به سجل له مجموعة من الحقول منها حقل باسم MAN وحقل اخر باسم DATE

اريد غلق الحقل DATE دائما من التحديث الا بشرط ان يكون الحقل MAN تم ادخال به الرمز التالى HT2 اولا

ماهى طريقة الحل ؟؟؟

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

 If Me.Man <> HT2  Then
    Me.date.Locked = True
    End If

مرفق ملف للتجربة

 

Field by field.accdb

تم تعديل يناير 7, 2024 بواسطه Abdelaziz Osman

[Abdelaziz Osman]

ارجوا الافادة

[ابوخليل]

عليكم السلام

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

الاسم  Date محجوز لدى اكسس فلا يصلح تسمي الحقل به

اما طلبك فأرى تجنب الحدث قبل التحديث الا في حدود ضيقة 

ففي حالتك الا فضل ان يكون حقل التاريخ محمي اساسا ويتم اتاحته للتحرير عند تحقق الشرط

Private Sub MAN_AfterUpdate()
If Me.MAN = "HT2" Then
Me.DATE1.Locked = False
End If
End Sub

 

Field by field.rar

[Abdelaziz Osman]

معلمى الفاضل@ابوخليل   لكن هذا الحل مرتبط بخاصية ان يكون الحقل DATE1 محمى  وممكن بالسهولة فك هذه الخاصية من قبل المستخدم

اريد هذه الخاصية داخل  VISUAL BASIC  فقط لانها محمية بكلمة مرور

ولك كل التحية

[ابوخليل]

يمكنك جعل الخاصية من المحرر

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

Me.DATE1.Locked = True

ونعدل الكود السابق ليصبح

Private Sub MAN_AfterUpdate()
If Me.MAN = "HT2" Then
Me.DATE1.Locked = False
Else
Me.DATE1.Locked = True
End If
End Sub

 

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

الخلل في كودك انك لم تضع علامتي التنصيص على النص HT2

[Abdelaziz Osman]

اخى الكريم @ابوخليل  لك كل التقدير والاحترام حل جيد ان شاء الله