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

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


jandbi

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

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

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

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

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

 

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

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

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

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

حياك الله 

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

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

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

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

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

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

بالتوفيق

 

تم تعديل بواسطه سعيد صواب
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information