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

[moho58]

السلام عليكم الأعضاء الكرام

في هذا المثال

أريد كود  لجعل حقلين  ممكنين  (أستطيع الكتابة في هذا الحقلين  ) أو جعلهما غير ممكنين (أي عدم القدرة على الكتابة في هذا الحقلين)   وهذا بناء على قيمة حقل آخر

 

إذا كانت قيمة الحقل المسمى " الرمز" تساوي  A  : أستطيع الكتابة في الحقلين "وقت العمل" و "الملاحظات"

إما إذا كانت قيمة الحقل المسمى "الرمز" تساوي B أو C لا  أستطيع الكتابة في الحقلين "وقت العمل" و "الملاحظات"

الرجاء المساعدة و التوجيه وبارك الله فيكم

 

BASEF.accdb

[Hamtoooo]

تفضل ..

تضع هذا الكود بعد تحديث حقل الرمز و في الحالي 

If Me.الرمز = "A" Then
Me.NOTE.Enabled = True
Me.TIME_WORK.Enabled = True
Else
Me.NOTE.Enabled = False
Me.TIME_WORK.Enabled = False
End If

 

BASEF1.accdb

[AbuuAhmed]

 

ويمكن اختصار الكود ليصبح كالتالي:

Me.NOTE.Enabled = Me.الرمز = "A"
Me.TIME_WORK.Enabled = Me.الرمز = "A"

أو كالتالي:

Me.NOTE.Locked = Me.الرمز <> "A"
Me.TIME_WORK.Locked = Me.الرمز <> "A"

 

[moho58]

16 دقائق مضت, AbuuAhmed said:

 

ويمكن اختصار الكود ليصبح كالتالي:

Me.NOTE.Enabled = Me.الرمز = "A"
Me.TIME_WORK.Enabled = Me.الرمز = "A"

أو كالتالي:

Me.NOTE.Locked = Me.الرمز <> "A"
Me.TIME_WORK.Locked = Me.الرمز <> "A"

 

مشكور أخي و بارك الله فيك

1 ساعه مضت, Hamtoooo said:

تفضل ..

تضع هذا الكود بعد تحديث حقل الرمز و في الحالي 

If Me.الرمز = "A" Then
Me.NOTE.Enabled = True
Me.TIME_WORK.Enabled = True
Else
Me.NOTE.Enabled = False
Me.TIME_WORK.Enabled = False
End If

 

BASEF1.accdb 960 kB · 1 download

مشكور أخي و بارك الله فيك

1 ساعه مضت, Hamtoooo said:

تفضل ..

تضع هذا الكود بعد تحديث حقل الرمز و في الحالي 

If Me.الرمز = "A" Then
Me.NOTE.Enabled = True
Me.TIME_WORK.Enabled = True
Else
Me.NOTE.Enabled = False
Me.TIME_WORK.Enabled = False
End If

 

BASEF1.accdb 960 kB · 1 download

مشكور أخي و بارك الله فيك