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

جعل الزر في النموذج الأخر visibel


ebrahim1400

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

السلام عليكم ورحمة الله وبركاته

لدي نموذجين في النموذج الأول يوجد به 3 خانات اختيار وكذلك النموذج الثاني يوجد به 3 ازرار 

واريد في حال الضغط على خانة الأختيار للمهمة 1 يجعل زر D1 يكون visibel في النموذج الثاني

وكذلك في خانة الإختيار للمهمة 2 مع الزر D2 و خانة الأختيار للمهمة 3 مع الزر D3 في النموذج الثاني 

وشكرا 

 

Database1.rar

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

وعليكم السلام

افتح وحدة نمطية عامة جديدة والصق فيها هذه الجملة  Public shrt As Byte

في النموذج الاول  وفي حدث بعد التحديث لاطار خانات الاختيار اكتب التالي :   

if etar=1 then
shrt=1
elseif etar=2 then
shrt=2
elseif etar=3 then
shrt=3
else
shrt=0
end if

في النموذج الثاني  وفي حدث تحميل النموذج  اكتب التالي :

if shrt=1 then 
zer1.Visible = False
elseif shrt=2 then 
zer2.Visible = False
elseif shrt=3 then 
zer3.Visible = False
else
exit sub
end if

على اعتبار الزر1 اسمه zer1

اتمنى تفهم الفكرة  وتطبقها بنفسك

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

مشاركة مع الاستاذ اباخليل

جرب حدث عند التحميل للنموذج الثاني بالكود التالي:

Private Sub Form_Load()
Me.أمر13.Visible = Forms!tabl1!مهمة1
Me.أمر15.Visible = Forms!tabl1!مهمة2
Me.أمر16.Visible = Forms!tabl1!مهمة3
End Sub

بالتوفيق

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

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

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



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

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

Important Information