جعل الزر في النموذج الأخر 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

بالتوفيق

[ebrahim1400]

استاذي ابو خليل واستاذي رمهان 

الف الف شكر والله لا يحرمك الأجر ان شاء الله 

على طول وافين وتحبون الخير

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

ويكتب لكم الأجر