مجهود رائع 

بس لو سمحت  محتاج دالة تفقيط بالريال السعودي 

 

 
المشاركة الأصلية كتبت بواسطة: رمضان بكري  » 
السلام عليكم  اليكم فورم  اريد هنا في التغيير التالي في تكست بوكس 10 وهكذا  اذا كان الرقم الموجود اكبر من كيلو متر الحالي يعطني اللون الخالية بلون انذار احمر  وهكذا  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب غير  كدا ييسبها كمان هيه باللون الابيض  

 هذا الكود 


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Me.TextBox17.Value = "" Then

Me.TextBox10.BackColor = &HFFFFFF

Else

If Me.TextBox10.Value > Me.TextBox17.Value Then

            Me.TextBox10.BackColor = &HFF&

        Else

           Me.TextBox10.BackColor = &HFFFFFF

             

        End If: End If

End Sub


 اريد تنفيذ هذا الكود علي باقي التكست بوكس   الباقية 

 البرنامج به مشكلة  عند التسطيب  

 

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

استاذي ومعلمي ياسر العربي 

عمل رائع 

تلاميذك  مشتاقين  والله  

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

استاذ حسام ....دي كانت الدالة المفاجأة ليا  .....بجد ربنا يعطيك العافية  الصحة 

 استاذنا الكبير ....بفكر نعملها  باليوزرفورم 

ويبقا التعامل من الفورم  ....بس بصراحة فكرتها حلوة ...عجبتني اوي 

 

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

علي المجهود الرائع 

يجعله الله في ميزان حسناتك ,.,,,,,,,

 جزاك الله خيرا استاذ ياسر

سلمت يداك

 

 السلام عليكم 

اخي ياسر فكرة جميلة  جزاك الله  خيرا 

 

 الله يعطيك العافية استاذ عماد وكتر الله خيرك 

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

أخوتي في الله 

الاستاذ الفاضل الحاضر الغائب الصقر 

والاستاذ ياسر العربي 

والاستاذ ياسر خليل 

الاستاذ محمد دسوقي 

بارك الله فيكم 

 

 أذا امكن استاذي  الحل من جانبكم 

أكون شاكر لحضرتك  فضلا