اضافة (وحدة الطول او الوزن) بجانب الرقم في تكست بوكس يوزر فور

[ماجد القثمي]

السلام عليكم

اريد اضافه كلمة kg بعد الرقم في داخل تكست بوكس الموجود في اليوزر فورم

بحيث عندما اكتب الرقم 14 مثلا في التكست بوكس, تلقائيا تظهر الكلمة kg بعد الرقم لتصبح (14kg)

حاولت استخدام الكود التالي

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "# ""Kg""")
End Sub

 لكن النتيجه عندما اكتب 14 في التكست بوكس تظهر هكذا (1kg4)

تظهر الكلمه kg بعدالخانة الاولى بمجرد كتابة الرقم الاول من العدد 14 مثلا

في حال كان العدد احادي الخانة لا مشكله مع الكود

ولكن خانتين او اكثر تظهر المشكله

 

ارجوا ا لمساعدة

وشكرا

Book1.rar

تم تعديل نوفمبر 3, 2016 بواسطه ماجد القثمي

[طلعت محمد حسن]

السلام عليكم

اخي الكريم شاهد المرفق لعلة يكون النتيجة المطلوبة ولكن بعد ادخال الرقم(الوزن) اضغط على انتر او Tab من لوحة المفاتيح

اقبل تحياتي واحترامي

Book1.rar

[ماجد القثمي]

وعليكم السلام

استاذ طلعت شكرا لمساعدتك

نعم هذه هي النتيجه المطلوبة

شكرا جزيلا

[طلعت محمد حسن]

الشكر لله اخي الكريم والحمد لله الذي تتم الصالحات بأرادتة.