Ahmed_J قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 (معدل) السلام عليكم اساتذتي الاعزاء لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (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 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 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) رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر يوليو 31, 2021 الكاتب مشاركة قام بنشر يوليو 31, 2021 السلام عليكم استاذ @Eng.Qassim لكن لو كان الرقم بالحقل ( 30,200=n28) * (0.0025) =(76) وهذا خطا بالنسبة لي المفروض يبقى (75,5) وشكرا لك استاي العزيز رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 اعتقد هذا الموضوع يفيدك 2 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر يوليو 31, 2021 الكاتب مشاركة قام بنشر يوليو 31, 2021 شكرا لك استاذي العزيز لكني جربت دالة round لكن النتيجة غير مطابفة معي رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 جرب هذا الكود Database1.rar 2 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر يوليو 31, 2021 الكاتب مشاركة قام بنشر يوليو 31, 2021 شكرا لك استاذ @husamwahab الكود ضبط معي بالنسبة للارقام التي معي في الجدول الرجاء ملاحظة الكود واصبح التالي لو كان فيه خطا Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5)) تحياتي لك رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 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)) تحياتي لك السلام عليكم.. عملت مع هذا الكود ولم ينجح معي .. لكن اجعل هذا الكود في مربع نص اخر مصدره الحقل الحسابي لديك والتي تظهر فيه الكسور رابط هذا التعليق شارك More sharing options...
أفضل إجابة Hawiii قام بنشر أغسطس 2, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 2, 2021 جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل 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 2 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر أغسطس 3, 2021 الكاتب مشاركة قام بنشر أغسطس 3, 2021 السلام عليكم استاذ @Hawiii هل طريقة استدعاها من الوحدة النمطية صحيحة بهذا الشكل Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025) وشكرا لك رابط هذا التعليق شارك More sharing options...
Hawiii قام بنشر أغسطس 3, 2021 مشاركة قام بنشر أغسطس 3, 2021 4 دقائق مضت, Ahmed_J said: هل طريقة استدعاها من الوحدة النمطية صحيحة بهذا الشكل Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025) نعم صحيح ويمكنك التخلص من الأقوس المربعة فلا داعي لها هنا .. وربما بعد إزالتها ستضظر لتبديل علامة التعجب (!) بالنقطة (.) غير متأكد ولكن اللغة سوف تساعدك في حال وجود خطأ برمجي. 1 رابط هذا التعليق شارك More sharing options...
Hawiii قام بنشر أغسطس 3, 2021 مشاركة قام بنشر أغسطس 3, 2021 20 دقائق مضت, Hawiii said: Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025) ويمكن كتابتها كالتالي: Forms("form1_1").n13 = myRound(Me.MAG * 0.0025) 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر أغسطس 3, 2021 الكاتب مشاركة قام بنشر أغسطس 3, 2021 شكرا لك استاذ @Hawiii بارك اله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان