ابو حمادة قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 السلام عليكم ورحمة الله الي خبراء الاكواد ارجو تصحيح هذا الكود ومعرفة الخطأ وتصحيح الكود يوجد في الفورم 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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 أخي الكريم احذف كلمة =True من هذا السطر If Me.TextBox2.Text < Me.TextBox1.Text = True Then 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 السّلام عليكم و رحمة الله و بركاته أستاذي الغالي " ياسر خليل أبو البراء " حتى بحذف كلمة True لم يتم حل المشكلة جرّبت وضع رقم أصغر من الرقم الموجود بالتاكست 1 .. شاهد الصورة لو تكرّمت بعد إذن سيادتك المحترمة ..لم أحاول بالموضوع لأنّي لم أفهم الجزء الثاني بالكود وما فائدته إحتراماتي 2 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر مايو 14, 2016 الكاتب مشاركة قام بنشر مايو 14, 2016 شكرا لاهتمامكم تم حل المشكله جزاكم الله خيرا ولي استفسار هل هناك اي وسيله لظهور الارقام بالعربي في التكست بوكس رابط هذا التعليق شارك More sharing options...
mahmoud nasr alhasany قام بنشر مارس 2, 2019 مشاركة قام بنشر مارس 2, 2019 (معدل) ممكن اعرف طريقة الحل لانى يوجد معى مثل هذه المشكلة تم تعديل مارس 2, 2019 بواسطه عمل قائمة منسدلة مفلترة تقرأ من رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.