مشكلة : الوحدة النمطية تعمل بكفاءة على الفورم وتوقفت على الريبورت

السلام عليكم

اتضح لي السبب وهو أن الأرقام الموجبة لا يتم تحويلها لحروف ولا تظهر بالخلية النصية بالتقرير ويظهر فقط الرصيد في حالة الارقام السالبة أتمنى من الاستاذة / زهرة العبد الله  مشكورة حل المشكلة واكرر شكري وامتناني لها ...

وادعو الجميع للمشاركة ...تحياتي للجميع ....

za-Nototext.rar

up

تم بفضل الله تعالى حل المشكلة ...

=NoToTxt([text],"ريال فط لاغير","هلله") & IIf([text]<0,"دائن بــ" & " " & NoToTxt(Mid([text],2,10),"ريال فقط لاغير","هللة"))

اشكر الاستاذة / زهرة فهي صاحبة الفضل الأولى في هذا الموضوع وكل المشاركين في المنتدى من اساتذتي المحترمين المتطوعين في خدمة الجميع لوجه الله

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

السلام عليكم

اعتذر عن الإزعاج ...

واجهتني مشكلة جديدة وهي ان الرصيد في حالة كونه موجباً يكون بالحروف كالتالي  -1600 يكون بالحروف مائة وستون ريال فقط لاغير دائن بــ  ألف وستمائة  ريال فقط لاغير

حاولت التغيير على الكود باستخدام then ,and , or ,iif 

=IIf([Text]<0,"ناقص" & " " & NoToTxt(Mid([Text],2,10),"ريال","هللة")),IIf([Text]> 0,"nototxt([text],"ريال","هلله"),"0"))

لكني للاسف لم افلح في حل المشكلة ...

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

up ....

وعليكم السلام اخي علاء :)

لوسمحت ترفق لي آخر نسخة من برنامجك ، وتوضح لي اين ظهور الخطأ ، وتعطيني مثالين على الخطأ ، حتى استطيع ان اعرف طريقي بسهولة :)

جعفر

وعليكم السلام ورحمة الله وبركاته استاذي / جعفر ...

مشكور على سرعة استجابتك وتلبية طلبي وردك على رسالتي.... تحياتي

المطلوب عند التسجيل على في الفورم يظهر الرصيد بالحروف ( اجابتني على طلبي استاذتي الفاضلة / زهرة في حالة الرصيد السالب ) ولكن اكتشفت حاجتي الملحة ان يظهر الرصيد كتابة سواء كان الرصيد سالب او موجب في نفس خانة المبلغ  .... 

المثال الأول : في حالة الرصيد السالب >>>  يظهر رصيد بطريقة صحيحة ( الفضل لله ثم أ/ زهرة )

المثال الثاني : في حالة الرصيد الموجب >>> لا يظهر اي شيء في خانة المبلغ وأريد ان يظهر الرصيد ( وهو المطلوب )

تفضل الملف 

za-Nototext (1).rar

تفضل :)

=IIf([Text]<0,"ناقص" & " " & NoToTxt(Mid([Text],2,10),"ريال","هللة"),NoToTxt([Text],"ريال","هللة"))

انت كنت قايل للكود شو اللي يعمله لما الرقم اقل من صفر ، بس ما قلت له شو يعمل اذا اكثر من صفر :(

كل اللي انا عملته هو اضافة هذه الجزئية في نهاية الكود اللي عندك:

,NoToTxt([Text],"ريال","هللة")

جعفر

جزاكم الله كل خير انت والاستاذة زهرة والله إني مدين لكم بكثير من الفضل في انجاز هذا البرنامج ....

ربنا يجعله في ميزان حسناتكم وحسنات كل من تعلمت منهم في هذا الصرح العظيم ....

هلا والله ، وحياك الله ، ومثل ما يقول العمانيين: كل يوم تعال (يعني شرفنا :) ) :)

جعفر

تسلم ربنا يكرمك ويوسع رزقك وشكراً لك على كرم الضيافة وكرم الاخلاق   :)

انتا هيك دخلتنا في السياسة ، وهذا قسم الاكسس :)

علم وتم التعديل :)

:)