[kafi2030]

الف شكر لكافة الاخوة الزملاء
على التوضيح الاكثر من رائع

بارك الله فيكم، وبهذا المنتدى الرائع

احب ان انوه الى انه بعد تجربة المقترحات
وجدت مايلي

بالنسبة الى الاخ eng.khalidvb
الكود الذي تفضلت به رائع وعمل بشكل جيد، ولكنه كان بحاجة الى اضافة سطر واحد، لتجنب حدوث خطأ في حال عدم قيام المستثمر بادخال اي قيمة
وذلك باسناد القيمة 0 للحقل في كان الحقل فارغ

'ok

كود :

'Dim val As Integer
        'If Trim(txt_Shra.Text) = "" Then txt_Shra.Text = 0
        'val = txt_Shra.Text
        'txt_Shra.Text = val.ToString("###,###")

الكود والحل المقدم من الاخ ناجي ابراهيم عمل بشكل رائع

الكود المقدم من الاخ / ابو رائد
من خلال كتابة الكود، ظهرت رسالة خطأ
وفق الصورة المبينة