تقريب مبالغ _ عنوان معدل

[محمدعبدالفتاح حسن]

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

أ

[Shivan Rekany]

السلام عليكم
لان حضرتك ما رفعت نسخة من قاعدتك
لذلك ساقول لك ... اتفضل اليك هذا الرابط بها ما تريد ان شاء الله

https://www.officena.net/ib/topic/64683-خلل-في-تقريب-حقل-محسوب-في-استعلام/

 

[Hamdi Edlbi-khalf]

6 ساعات مضت, Shivan Rekany said:

السلام عليكم
لان حضرتك ما رفعت نسخة من قاعدتك
لذلك ساقول لك ... اتفضل اليك هذا الرابط بها ما تريد ان شاء الله

السلام عليكم

أستاذي 

صاحب السؤال يبحث عن دالة في أكسس تعمل كدالة إكسل 

Roundup

و هي على ما أعلم غير موجودة في الأكسس شأنها شأن Rounddown - ceiling -floor .

 

لدى بحثي سابقاً وجدت أن الحل إما بإنشاء دالة تقوم بذات الوظيفة أو اللجوء إلى تعريف دالة إكسل .

 

لكن طالما أن السؤال حظي باهتمامكم فلا بد أن هناك حلاً إبداعياً .

[محمدعبدالفتاح حسن]

انتظر من حضراتكم حلا ابداعيا وهل يوجد دالة تضاف لاكسس لحل المشكلة

[Hamdi Edlbi-khalf]

من بعد إذن أستاذي @Shivan Rekany

لكي تقوم بالمطلوب :

١- عرف المرجع 

microsoft excel 

و رقم الإصدار سيختلف بحسب نسخة الأوفيس

١٠-١٣-١٦....

من قائمة tool

تبويب reference 

من محرر الفيجوال بيزيك .

 

٢- في الجدول الذي تقوم بالإدخال فيه  اجعل الحقل الذي تريد أن تظهر به القيمة مدورة من نوع مفرد single و حدد عدد الفواصل العشرية فيه.

 

٣- اجعل في حدث ( في زر أو حقل أو ...) 

هذا الأمر 

ME.NAME_field = worksheetfunction.ROUNDUP([name_field2].value,NUM)

استبدل المسميات بالشكل الذي يلائم قاعدتك و بين قوسي الدالة ضع اسم الحقل الذي تريد تدوير قيمته و بعد الفاصلة عدد المنازل العشرية التي تريد التدوير إليها 

٣،٢٣ هنا ستكون المنزلة ٢

و هكذا 

* دعوة صالحة لي و لوالدي .

تم تعديل أكتوبر 21, 2018 بواسطه Khalf

[Shivan Rekany]

17 ساعات مضت, Khalf said:

لكن طالما أن السؤال حظي باهتمامكم فلا بد أن هناك حلاً إبداعياً .

ان شاء الله سيكون هناك حل

14 ساعات مضت, محمدعبدالفتاح حسن said:

انتظر من حضراتكم حلا ابداعيا وهل يوجد دالة تضاف لاكسس لحل المشكلة

كان من المفروض ان ترفق نسخة مصغرة من القاعدة لكي تحصل على الجواب باسرع وقت ممكن

في ٢٠‏/١٠‏/٢٠١٨ at 03:43, محمدعبدالفتاح حسن said:

حسب ما في الصورة اتفضل اليك هذا 

Teqrib: IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;[Derece]+0.01;[Derece])

Derece هو حقل الارقام تقدر تغيره الى اسم اللي في جدول قاعدة بياناتك

القي نظرتا الى الصورة

واليك القاعدة بها جدول واحد مع استعلام تقريب الى الاعلى للرقم الثاني بعد الفارزة.accdb

[Hamdi Edlbi-khalf]

تعديل طفيف على طريقة أستاذي @Shivan Rekany

تستغني فيه عن كون تنسيق الحقل FIXED

IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;Fix([Derece])+Mid$([Derece]-Fix([Derece]);1;4)+0.01;[Derece])

 

تقريب الى الاعلى للرقم الثاني بعد الفارزة2.accdb

[محمدعبدالفتاح حسن]

استاذ خلاف فيه بعد القوسين قيمه value ادخل ايه فيها

[محمدعبدالفتاح حسن]

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

[aamh100]

نفس المشكله نرجو الرد

[Hamdi Edlbi-khalf]

السلام عليكم

في الملف وضعت الأمر مع الانتباه إلى إضافة المكتبة المناسبة من مكتبات vba .

مع أني أنصحك أخي الفاضل بطريقة الأخ @Shivan Rekany

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

ROUNDUP EXCEL FUNCTION - VBA.accdb

تم تعديل أكتوبر 22, 2018 بواسطه Khalf