ارجو المساعد في اضافة دالة التفقيط الى المثال المرفق -للرفع-

[asalman111]

اولاً / احب ان اشكر القائمين على هذا المنتدى الرابع والمفيد جداً

ولي طلب ان لدي جدول اريد إضافة دالة التفقيط الى الخانة المسماه ( كتابة : ) للمبلغ المطلوب رقماً فقط

وجزاكم الله خير

malyah.rar

[boussaid]

الملف ناقص .... و لا يعمل الرجاء إدراج الملف كاملاً

[asalman111]

عذراً اخي boussaid

هذا الملف كاملاً

malyah.rar

[ابو يامن]

أخي العزيز :

أرفق لك المثال بعد التعديل وفقك الله مشيراً الى أنه يمكنك وضع التفقيط في أي حقل تريده لأنني وضعت كود التفقيط على شكل Module و يمكن الإستعانه به من خلال الكود الموضوع في النموذج أيضاً

أخوك ابو سليم

malyah.zip

[asalman111]

جزاك الله خير اخوي boussaid

المعذرة ابثقل عليك شوي لكن هناك مشكلة في الهللة حيث يقوم الحقل بكتابة الهلل على النحو التالي عند كتابة مبلغ عشرة الآلف ريال وخمسة وعشرون هللة

تكون على النحو التالي ( عشرة آلاف ريال و هللـــ 250 ــــه ) لماذا يجعلها ( 250 هللة ).

اضافة إلى ذلك أرجو أن تكون خانة الهلل في خانة مستقلة كما هو مفصل في النموذج على النحو التالي :

المبلغ المطلوب رقما يكون لوحده والهلل لوحدها

مع رجائي بشرحك لي كيفية استدعاء الــ Module11 في النموذج . لعدم معرفتي بذلك.

شاكراً ومقدراً لك تعاونك ...

malyah.rar

[ابو يامن]

مرفق لك المثال بعد التعديل المطلوب .

مشيراَ الى انه يمكن استدعاء الـ Module من خلال الكود التالي :

Private Sub ÇáãÈáÛ_ÇáãØáæÈ_ÑÞãÇð_åááå_AfterUpdate()
On Error Resume Next
Dim NUM
NUM = [ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð åááå]
no_to_char (NUM)
a = massage
[ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð ÑíÇá] = a

'ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð ÑíÇá
End Sub

malyah.zip

[asalman111]

جزراك الله خير اخي ابوسليم

وجعل الله ذلك في ميزان حسناتكم

[ابو يامن]

العفو أخي asalman111 هذا واجبنا