[ إظهار / إخفاء ] زر في نموذج آخر عن طريق checkbox

[jandbi]

في المرفقات ..

نموذجين .. تحتوي على ازرار في وضع غير مرئي

نموذج Main1 يحتوي على عدد 2 checkbox ..

الاول قمت بتنفيذه وهو اظهار واخفاء زر في نفس النموذج .. الثاني ارغب ان يقوم بإظهار الزر في نموذج Main2  << لم اعرف طريقة ربط الامر بالزر في النموذج الاخر

 

الطلب الثاني ..

انه في حالة ( الاختيار ) للـ checkbox يبقى مثل ماهو عند اغلاق النموذج والعودة مرة اخرى للنموذج ( أي يحتفظ بالاختيار الذي قمنا به )

ShowButton.zip

[سعيد صواب]

حياك الله اخي الكريم

طبعا بشرط ان كلا النموذجين مفتوحين في نفس الوقت 

Private Sub F2_Click()
If Me.F2 = -1 Then
Forms!main2!c2.Visible = True
ElseIf Me.F2 = 0 Then
Forms!main2!c2.Visible = False
End If
End Sub

طبعا اذا كان النموذج main2 غير مفتوح يصبح الكود بالطريقة التالية .

Private Sub F2_Click()
DoCmd.OpenForm "main2"
If Me.F2 = -1 Then
Forms!main2!c2.Visible = True
ElseIf Me.F2 = 0 Then
Forms!main2!c2.Visible = False
End If
End Sub

بالتوفيق

[jandbi]

اشكرك اخوي سعيد على سرعة تجاوبك ..

هل يوجد طريقة لفعل الامر بدون الحاجة لفتح الفورم ؟!

 

بالنسبة للنقطة الثانية اللي هي الاحتفاظ بالاختيار عند اغلاق الفورم .. هل من حل لها ؟

[سعيد صواب]

حياك الله 

يجب ان يكون مفتوح اخي .. 

اجعله مفتوح ولكن مخفي بالطريقة هذي

Private Sub F2_Click()
DoCmd.OpenForm "main2", , , , , acHidden
If Me.F2 = -1 Then
Forms!main2!c2.Visible = True
ElseIf Me.F2 = 0 Then
Forms!main2!c2.Visible = False
End If
End Sub

بالنسبة لسؤالك الثاني 

لا يمكن للنموذج ان يحتفظ بها  الا اذا كانت احد القيمتين ونجعلها قيمة افتراضية....

ولكن بإمكانك ان تجعلها تأخذ القيمة من الجدول بأي طريقة ..  اي تأخذ آخر قيمة في الجدول .

بالتوفيق

 

تم تعديل يناير 20, 2016 بواسطه سعيد صواب

[jandbi]

اشكرك اخوي سعيد ..

لما ذكرت لي فكرة الجدول حللت المشكلة بشكل جذري ..

انظر للمرفق الان

ShowButton1.zip

[سعيد صواب]

العفو ...

بالتوفيق ان شاء الله .