تقريب الكسور العشرية بحقل بالاكسس

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء 

لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (0.0025)  لكن اغلب النتائج تظهر بالكسور مثلا الحقل ( 30,100=n28) * (0.0025) =(75,25) 

Forms![form1_1]![n28] = Me![MAG] * 0.0025

المطلوب : اذا كانت النتيجة فيها كسر = 75,5  فهي مقبولة

اذا كانت النتيجة للكسر اكبر من 5 تتحول الى 1  قيصبح المجموع (76)

اذا كانت النتيجة للكسر اقل من 5 تتحول الى 0  قيصبح المجموع (75)

علما انني جربت الدوال التالية (Int,Round,Fix) ولم تنفع اعتقد يمكن عملها بدالة iff

تحياتي للجميع

تم تعديل يوليو 31, 2021 بواسطه Ahmed_J

[Eng.Qassim]

56 minutes ago, Ahmed_J said:

السلام عليكم اساتذتي الاعزاء 

لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (0.0025)  لكن اغلب النتائج تظهر بالكسور مثلا الحقل ( 30,100=n28) * (0.0025) =(75,25) 

Forms![form1_1]![n28] = Me![MAG] * 0.0025

المطلوب : اذا كانت النتيجة فيها كسر = 75,5  فهي مقبولة

اذا كانت النتيجة للكسر اكبر من 5 تتحول الى 1  قيصبح المجموع (76)

اذا كانت النتيجة للكسر اقل من 5 تتحول الى 0  قيصبح المجموع (75)

علما انني جربت الدوال التالية (Int,Round,Fix) ولم تنفع اعتقد يمكن عملها بدالة iff

تحياتي للجميع

وعليكم السلام.. استخدمت الدالة وكانت النتيجة كماتريد

=Round(([Forms]![frmProjects]![frmPaid]![txtpaidTotal])*0.0025)

 

[Ahmed_J]

السلام عليكم استاذ @Eng.Qassim

لكن لو كان الرقم بالحقل ( 30,200=n28) * (0.0025) =(76)  وهذا خطا بالنسبة لي  المفروض يبقى (75,5)

وشكرا لك  استاي العزيز 

[Eng.Qassim]

اعتقد هذا الموضوع يفيدك

 

 

[Ahmed_J]

شكرا لك استاذي العزيز

لكني جربت دالة round لكن النتيجة غير مطابفة معي

 

[husamwahab]

جرب هذا الكود

 

Database1.rar

[Ahmed_J]

شكرا لك استاذ @husamwahab

الكود ضبط معي بالنسبة للارقام التي معي في الجدول

الرجاء ملاحظة الكود  واصبح التالي لو كان فيه خطا

Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5))

تحياتي لك

[Eng.Qassim]

2 hours ago, Ahmed_J said:

شكرا لك استاذ @husamwahab

الكود ضبط معي بالنسبة للارقام التي معي في الجدول

الرجاء ملاحظة الكود  واصبح التالي لو كان فيه خطا

Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5))

تحياتي لك

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

[Hawiii]

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round

Function myRound(Number As Double) As Double
  If Number - Fix(Number) = 0.5 Then
    myRound = Number
  Else
    myRound = Round(Number, 0)
  End If
End Function

 

[Ahmed_J]

السلام عليكم استاذ @Hawiii

هل طريقة استدعاها  من الوحدة النمطية صحيحة  بهذا الشكل

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

وشكرا لك

[Hawiii]

4 دقائق مضت, Ahmed_J said:

هل طريقة استدعاها  من الوحدة النمطية صحيحة  بهذا الشكل

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

نعم صحيح
ويمكنك التخلص من الأقوس المربعة فلا داعي لها هنا .. وربما بعد إزالتها ستضظر لتبديل علامة التعجب (!) بالنقطة (.) غير متأكد ولكن اللغة سوف تساعدك في حال وجود خطأ برمجي.

[Hawiii]

20 دقائق مضت, Hawiii said:

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

ويمكن كتابتها كالتالي:
 

Forms("form1_1").n13 = myRound(Me.MAG * 0.0025)

 

[Ahmed_J]

شكرا لك استاذ @Hawiii

بارك اله فيك