كود لا يعمل الا في ارقام معينة

[محمد الورفلي1]

السلام عليكم

يوجد خطاء غير معروف عند وضع رقم 45 في تكيست 1 ورقم 5 في تكيست 2 لايظهر رسالة بان القيمة التي في تيكست 1 اكبر

الغريب عند وضع رقم 4 مثلاً في تكيست 1 ورقم 1 في تكيست 1 يتم تطيق الكود ويعمل بشكل ممتاز ........... فما السبب

 

 

 

تفيل كود.rar

[احمد بدره]

كل عام أنت بخير

تفضل لعله يكون المطلوب

 

تفيل كود.rar

[محمد الورفلي1]

السلام عليكم المطلوب كان إظهار رسالة بان القيم في تكيست1 اكبر من تكيست 2  فقط لاغير   لم اطلب مسح التكيست في نهاية الكود

 

 

للعلم وجد الحل  وهو تغيير تنسيق التكيست

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "00")
End Sub

Private Sub TextBox2_Change()
TextBox2.Text = Format(TextBox2.Text, "00")
End Sub

 

 

وهذ الملف لتعم الفائدة

تفيل كود اكبر من.rar