اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

في هذا المثال

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

 

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

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

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

 

BASEF.accdb

  • أفضل إجابة
قام بنشر

تفضل ..

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

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

  • Thanks 1
قام بنشر

 

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

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

أو كالتالي:

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


 

  • Thanks 1
قام بنشر
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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information