إظهار واخفاء ازرار

[jo_2010]

الخبراء الافاضل 

بعد التحية والاحترام 

عندى نموذج فرعى مستمر وأمام كل سجل ٣ ازرار m  _l_b ومربع نص اسمة total_out

اريد ان وتختفى الازرار الثلاتة فى حالة

total_out =  0

, وتظهر الازرار الثلاتة اذا كان

0 <> total_out

لكم الشكر عملت قاعدة if فى حدث السجل الحالى ولم يعطى نتائج جبدة

 

[kkhalifa1960]

تفضل أستاذ @jo_2010 الحل من وجهة نظري اليك الشرح والمرفق . ووافني بالرد .

                                                                                                  

DD-JO_2010.rar

[Foksh]

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

فليسمح لي أخي @kkhalifa1960 ، لم لا نستخدم الدالة "Transparent" !!!!

في حدث عند الرسم ( On Paint ) للجزء ( التفاصيل - Detail ) للنموذج ، نكتب الكود التالي :-

 

If Me.total_out = 0 Then
    Me.CmdM.Transparent = True
    Me.CmdL.Transparent = True
    Me.CmdB.Transparent = True
Else
    Me.CmdM.Transparent = False
    Me.CmdL.Transparent = False
    Me.CmdB.Transparent = False
End If

 

والنتيجة في الصورة التالية :-

 

مرفق مثال الأستاذ خليفة مشكوراً على طرحه ، مع أن الأحق بإرفاق ملف هو أخونا @jo_2010 ، حتى لا نقع في اختلاف الأفكار والتسميات .... إلخ

 

 

DD-JO_2010.accdb

[kkhalifa1960]

نعم يخفي ولكن فعال كما ترى .

                                                                

[Foksh]

16 دقائق مضت, kkhalifa1960 said:

نعم يخفي ولكن فعال كما ترى .

 

كلامك سليم 100% ، ولكن هناك حل لهذه المشكلة أيضاً  

 

نستخدم هذا الكود في حدث "في الحالي - On Current" مع الكود السابق

Private Sub Form_Current()
    Dim bVisible As Boolean
    bVisible = (Me.total_out <> 0)
    
    With Me.CmdM
        .Transparent = Not bVisible
        .Enabled = bVisible
    End With
    With Me.CmdL
        .Transparent = Not bVisible
        .Enabled = bVisible
    End With
    With Me.CmdB
        .Transparent = Not bVisible
        .Enabled = bVisible
    End With
End Sub

 

 

DD-JO_2010.accdb

تم تعديل منذ 8 ساعات بواسطه Foksh
اضافة أكثر من حل 😉

[Foksh]

 

صورة توضيحية ..

[kkhalifa1960]

اعتقدنفس هذا 

DD-JO_2010-1.rar