خطأ في كود

[ابو حمادة]

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

الي خبراء الاكواد

ارجو تصحيح هذا الكود ومعرفة   الخطأ وتصحيح الكود

يوجد في الفورم   TextBox1 و TextBox2 محتاج الاتى

عند كتابة اي رقم في TextBox2 لو كان الرقم الذي تمت كتابتة اكبر من الرقم الموجود في TextBox1  يتم اظهار رسالة للمستخدم تفيد بانه ( لا يوجد رصيد كافي ) وان كان الرقم اقل او يساوي يتم عمل الكود عادي

Private Sub TextBox2_Change()
Dim WS As Worksheet
Set WS = Worksheets("Bill")
With Me
If Me.TextBox2.Text < Me.TextBox1.Text = True Then
MsgBox "لا يوجد رصيد كافي"
Else
WS.Cells(12, 2).Value = Me.TextBox2.Value
TextBox2 = WS.Range("U12").Text
End If: End With
End Sub

 

[ياسر خليل أبو البراء]

أخي الكريم

احذف كلمة =True من هذا السطر

If Me.TextBox2.Text < Me.TextBox1.Text = True Then

 

[عبد العزيز البسكري]

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

أستاذي الغالي " ياسر خليل أبو البراء "

حتى بحذف كلمة True لم يتم حل المشكلة

جرّبت وضع رقم أصغر من الرقم الموجود بالتاكست 1 .. شاهد الصورة لو تكرّمت

بعد إذن سيادتك المحترمة ..لم أحاول بالموضوع لأنّي لم أفهم الجزء الثاني بالكود وما فائدته

إحتراماتي

[ابو حمادة]

شكرا لاهتمامكم

تم حل المشكله جزاكم الله خيرا

ولي استفسار هل هناك اي وسيله لظهور الارقام بالعربي في التكست بوكس 

[mahmoud nasr alhasany]

ممكن اعرف طريقة الحل لانى يوجد معى مثل هذه المشكلة

 

تم تعديل مارس 2, 2019 بواسطه عمل قائمة منسدلة مفلترة تقرأ من