كيف يمكن عند الضغط على خانة الاختيار في الرئسي يتغير لون حقل في الفرعى

[الحلبي]

السلام عليكم اخوانى الاعزاء 

كما فى المرفق كيف يمكن عند الضغط على خانة الاختيار فى النموذج الرئسي وكانت (نعم)  ان يتلون الحقل المسمى D1 باللون الاحمر وتكتب بداخله كلمة "غير متعاقد"  اتوماتيكيا

وعند الضغط خانة الاختيار فى الرئيسى وكانت( لا)  يتلون الحقل D1 باللون الابيض وتكتب بداخله كلمة "متعاقد" اتوماتيكيا

الضغط على الفرعى (1).accdb

[ابو جودي]

26 دقائق مضت, حلبي said:

السلام عليكم اخوانى الاعزاء 

كما فى المرفق كيف يمكن عند الضغط على خانة الاختيار فى النموذج الرئسي وكانت (نعم)  ان يتلون الحقل المسمى D1 باللون الاحمر وتكتب بداخله كلمة "غير متعاقد"  اتوماتيكيا

وعند الضغط خانة الاختيار فى الرئيسى وكانت( لا)  يتلون الحقل D1 باللون الابيض وتكتب بداخله كلمة "متعاقد" اتوماتيكيا

الضغط على الفرعى (1).accdb 928 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

جرب يا دكتور

الضغط على الفرعى (1).accdb

[الحلبي]

مرحب بشمهندسنا ومروض اكسسنا

استاذى الجليل ومعلمى / @ابا جودى

اوضح المطلوب اكثر فى خطواط مرتبه

1.   الاسم الرابع  مثلا هو "احمد" وبجانبه خانة الاختيار (فارغة) فيكون المربع الفارغ D1 لونه احمر ومكتوب فيه "غير متعاقد"
2. واذا اردنا ان نعدل ونجعله "متعاقد " فنذهب الى خانة الاختيار R1 (فى الرئيسى) ونغيرها الى علامة الصح (نعم) فيتغير اتوماتيكا المربع D1  من الاحمر الى اللون الابيض

اى ان نبدأ اولا بالضغط على اي حقل في الفرعى حتي نرى فى الرئيسى نفس قيمة خانة اختيار الفرعى ثم الضغط على خانة اختيار الرئسي يتغير في الفرعى 

ان كانت K1 فى الفرعى فارغة يصبح المربع لونه احمر ومكتوب غير متعاقد والعكس صحيح

هذا هدفى من الموضوع يابشمهندس معلش ان كررت الكلام لانى عايز اوصل المطلوب واضحا

جزاكم الله خيرا

[SEMO.Pa3x]

عليكم السلام، جرب المرفق ووافني بالنتيجة.

الضغط على الفرعى (1).accdb

تم تعديل نوفمبر 13, 2019 بواسطه SEMO.Pa3x

[الحلبي]

استاذنا وحبيبنا / @SEMO.Pa3x

نعم هذا هو المطلوب 

بارك الله فيك وزادك من علمه ورحم الله والديك ورزقك الله رزقا واسعا خبير وعبقرى وعندك الحل دائما وفى اي وقت بارك الله فيك

وكان هناك شئ بسيط ناقص وهو عند الضغط على اي حقل فى الفرعى تنتقل قيمة K1 الى الحقل R1 فى الرئيسي

وقام الاخ الفاضل / @محمد ابوعبدالله  جزاه الله خيرا بالحل فى مشاركة سابقة بان نضغ في حدث "فى الحال" للفرعى الكود التالى:

On Error Resume Next
    Forms!f1.Form!R1 = Me.k1

والآن اصبح كل شئ تمام التمام 

ولن ننسى مشاركة استاذي والقريب الى قلبى ومروض الاكسس / @ابا جودى جزاه الله كل خير

اخواني الافاضل لكم كل التحية والتقدير لشخصكم الكريم

[kha9009lid]

10 ساعات مضت, حلبي said:

استاذنا وحبيبنا / @SEMO.Pa3x

نعم هذا هو المطلوب

من باب اثراء الموضوع اضع طريقة اخرى باستخدام  Switch بدلا من IIf

Switch([k1]=-1;"غير متقاعد";[k1]=0;"متقاعد")

ولتحديد الكل والغاء الكل

DoCmd.SetWarnings False
If [R1] = -1 Then
DoCmd.RunSQL "UPDATE t2 SET t2.k1 = yes"
ElseIf [R1] = 0 Then
DoCmd.RunSQL "UPDATE t2 SET t2.k1 = no"
End If
DoCmd.SetWarnings True
Me.fsub.Requery

 

الضغط على الفرعى (1).accdb

تم تعديل نوفمبر 14, 2019 بواسطه kha9009lid

[الحلبي]

استاذي وخبيرنا / خالد

يسعدنى مرورك فانت دائما طيب القلب ونصير المبتدئين

بارك الله فيك وجعله في ميزان حسناتك