تاج القلوب

اهلين فيك اخي العزيز 

اشكرك على الرد 

في الحقيقة اعرف انه قسم اكسس 

ربما اجد من يساعدني في هذا الموضوع 

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

اشكرك واشكر القائمين على هذا الموقع

3 ساعات مضت, jjafferr said:

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

 

حيا الله ولد بلادي 🙂

احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !!

فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂

 

اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂

 

جعفر

اشكرك على الرد 

يا ولد بلادي 

وبارك الله فيك 

مرحبا انا عملت على هذا الدالة 

ولكن في الاساس دالة انجليزية 

اريد من اصحاب الخبرة مساعدتي مرفق لكم الدالة وصورة لقراءة الدالة 

هذا الدالة يلي عملت عليها اريد اصحاب الخبره مساعدتي 

اقتباس

Choose(Int(Mod(NumberField;10^12) / 10^11); ""; "مئة ريال عُماني "; "مئتان ريال عُماني "; "ثلاثمائة ريال عُماني "; "أربعمائة ريال عُماني "; "خمسمائة ريال عُماني "; "ستمائة ريال عُماني "; "سبعمائة ريال عُماني "; "ثمانمائة ريال عُماني "; "تسعمائة ريال عُماني ") &
If(Int(Mod(NumberField;10^11) / 10^10) = 1;
Choose(Int(Mod(NumberField;10^10) / 10^9); "عشرة "; "أحدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^11) / 10^10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^10) / 10^9); ""; "واحد "; "أثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^12)/10^9) and Int(Mod(NumberField;10^9) / 10^3); "بليون; "; Int(Mod(NumberField;10^12)/10^9);"بليون ";"")
&
Choose(Int(Mod(NumberField;10^9) / 10^8); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;10^8) / 10^7) = 1;
Choose(Int(Mod(NumberField;10^7) / 10^6); "عشرة "; "أحدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^8) / 10^7); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^7) / 10^6); ""; "واحد "; "اثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^9)/10^6) and Int(Mod(NumberField;10^6) / 10^3); "مليون; "; Int(Mod(NumberField;10^9)/10^6);"مليون ";"")
&
Choose(Int(Mod(NumberField;10^6) / 10^5); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;10^5) / 10^4) = 1;
Choose(Int(Mod(NumberField;10^4) / 10^3); "عشرة "; "احدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;10^5) / 10^4); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10^4) / 10^3); ""; "واحد "; "اثنا "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Int(Mod(NumberField;10^6)/10^3) and Int(Mod(NumberField;10^3) / 10^0); "ألف; "; Int(Mod(NumberField;10^6)/10^3);"ألف ";"")
&
Choose(Int(Mod(NumberField;10^3) / 100); ""; "مئة "; "مئتان "; "ثلاثمائة "; "أربعمائة "; "خمسمائة "; "ستمائة "; "سبعمائة "; "ثمانمائة "; "تسعمائة ") &
If(Int(Mod(NumberField;100) / 10) = 1;
Choose(Int(Mod(NumberField;10)); "عشرة "; "احدى عشر "; "اثنا عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Int(Mod(NumberField;100) / 10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Int(Mod(NumberField;10)); ""; "واحد "; "اثنان "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) & Case(Int(NumberField) > 1; "ريال عُماني"; Int(NumberField) = 1; "ريال عُماني"; "")
&
If(Mod(NumberField; 1) and Int(NumberField);" و ";"") &
If(Mod(Int(NumberField*10); 10) = 1;
Choose(Mod(Int(NumberField*100); 10); "عشرة "; "أحدى عشر "; "أثنى عشر "; "ثلاثة عشر "; "أربعة عشر "; "خمسة عشر "; "ستة عشر "; "سبعة عشر "; "ثمانية عشر "; "تسعة عشر ");
Choose(Mod(Int(NumberField*10); 10); ""; ""; "عشرون "; "ثلاثون "; "أربعون "; "خمسون "; "ستون "; "سبعون "; "ثمانون "; "تسعون ") &
Choose(Mod(Int(NumberField*100); 10); ""; ",واحد "; "اثنين "; "ثلاثة "; "أربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة ")) &
Case(Mod(NumberField; 1) > .01; "بيسة"; Mod(NumberField; 1) = .01; "بيسة";"")

تفقيط.docx

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

احبتي في الله 

يسعدني ان اكون احد اعضاء هذا المنتدى الرائع والذي يضم كوكبة من المبدعين ...

احبتي 

ابحث عن دالة تفقيط العملات (الريال العماني-بيسة) يمكن استخدامها في برنامج الفايل ميكر

سأرفق لكم صورة تبين لكم ذلك

لكم كل الود والاحترام 

سبحان الله وبحمده سبحان الله العظيم