التفقيط

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

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

أساتذتي الأعزاء كمحاولة مني لفهم عملية التفقيط قمت بتجربة بسيطة في هذا الملف ..  لو أكتب على الفورم مثلا العدد 14 و أقوم بالترحيل إلى الشيت تُكتب على الشيت " فقط أربعة عشر درهم لا غير " ..هذا أمر جيّد .. المشكلة التي لم أجد لها حلاًّ و هي لو أكتب مثلا 14.25 على الفورم ..عند الترحيل لا يظهر أي أثر لل "25" و تكتب أيضا  " فقط أربعة عشر درهم لا غير " ..فالـ 25 فلسًا لا تظهر على الشيت ..

أرجو المساعدة لو تكرمتم  أساتذتي الأفاضل .. جزاكم الله خيرًا و بارك الله فيكم مسبّقًا.. 

التفقيط.rar

[بن علية حاجي]

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

أساتذتي الأعزاء كمحاولة مني لفهم عملية التفقيط قمت بتجربة بسيطة في هذا الملف ..  لو أكتب على الفورم مثلا العدد 14 و أقوم بالترحيل إلى الشيت تُكتب على الشيت " فقط أربعة عشر درهم لا غير " ..هذا أمر جيّد .. المشكلة التي لم أجد لها حلاًّ و هي لو أكتب مثلا 14.25 على الفورم ..عند الترحيل لا يظهر أي أثر لل "25" و تكتب أيضا  " فقط أربعة عشر درهم لا غير " ..فالـ 25 فلسًا لا تظهر على الشيت ..

أرجو المساعدة لو تكرمتم  أساتذتي الأفاضل .. جزاكم الله خيرًا و بارك الله فيكم مسبّقًا.. 

التفقيط.rar

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

أخي الكريم عبد العزيز، يمكنك تصحيح هذا الخلل بالتعديل على كود TextBox1_Exit بتغيير الجزء (Val(TextBox1 بالجزء TextBox1.Value

أرجو أن يفي هذا التعديل بالمطلوب...

 

أخوك بن علية
 

 

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

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

أستاذي القدير ابن علية حاجي .. هل تقصد هكذا كما بالصورة المرفقة أدناه ؟؟

بارك الله فيك و جزاك الله خيرًا مسبّقا

[بن علية حاجي]

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

أخي الكريم عبد العزيز، لا أقصد ما وضعته بل أقصد :

TextBox1.Value = Format(TextBox1.Value, "#00.00")

أو

TextBox1.Value = Format(TextBox1, "#00.00")

أخوك بن علية

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

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

جمعة مباركة أستاذنا الفاضل ابن علية حاجي

فعلاً اقتراحك في محلّه ..والملف اشتغل بطريقة جيّدة.. بارك الله فيك و جزاك الله خيرًا و زادها بميزان حسناتك

     أخوك / عبد العزيز البسكري