ابو حمادة قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 السلام عليكم ورحمة الله تعالى وبركاته الاخوة الاعضاء بعد وافر التحيه لاساتذتي الكرام محتاج مساعده في الاتى عندي فورم به بعض المعادلات الحسابيه اريدتقريب نتيجه تكست لاقرب رقم عشري صحيح Me.TextBox80.Value = Format(Round(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") مثال اذا كانت النتيجه 2.47 تقرب االي 2.50 واذا كانت النتيجه 2.44 تقرب الي 2.45 وهكذا وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 18 دقائق مضت, ابو حمادة said: السلام عليكم ورحمة الله تعالى وبركاته الاخوة الاعضاء بعد وافر التحيه لاساتذتي الكرام محتاج مساعده في الاتى عندي فورم به بعض المعادلات الحسابيه اريدتقريب نتيجه تكست لاقرب رقم عشري صحيح Me.TextBox80.Value = Format(Round(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") مثال اذا كانت النتيجه 2.47 تقرب االي 2.50 واذا كانت النتيجه 2.44 تقرب الي 2.45 وهكذا وجزاكم الله خيرا استيدل كلمة Round بكلمة Ceiling لتصيح المعادلة في الكود بهذا الشكل: Me.TextBox80.Value = Format(Ceiling(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 20 دقائق مضت, سليم حاصبيا said: استيدل كلمة Round بكلمة Ceiling لتصيح المعادلة في الكود بهذا الشكل: Me.TextBox80.Value = Format(Ceiling(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") شكرا لاهتمامك استاذي الغالي تم استبدالها وعند التطبيق يظهر خطأ وتظهر هذه الرساله ويتم تحديد كلم (Ceiling) كما تشاهد في الصور رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 7 دقائق مضت, ابو حمادة said: شكرا لاهتمامك استاذي الغالي تم استبدالها وعند التطبيق يظهر خطأ وتظهر هذه الرساله ويتم تحديد كلم (Ceiling) كما تشاهد في الصور ارفع جزء من الملف للمعالجة 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 7 دقائق مضت, سليم حاصبيا said: ارفع جزء من الملف للمعالجة ملف مشابه للاصل لتخفيف الملف نتيجه.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 29 دقائق مضت, ابو حمادة said: ملف مشابه للاصل لتخفيف الملف نتيجه.rar الكود المطلوب Me.TextBox80.Value = Format(Evaluate("CEILING(" & Val(Me.Detels3) & ",0.05)"), "0.00") من مشاكل اللغة العربية ") الذي في البداية يجب ان يكون في نهاية السطر) عذرا لم اتمكن من رفع الكود بواسطة <> لبطء النت عندي الملف مرفق نتيجه salim.rar 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 20 دقائق مضت, سليم حاصبيا said: الكود المطلوب Me.TextBox80.Value = Format(Evaluate("CEILING(" & Val(Me.Detels3) & ",0.05)"), "0.00") من مشاكل اللغة العربية ") الذي في البداية يجب ان يكون في نهاية السطر) عذرا لم اتمكن من رفع الكود بواسطة <> لبطء النت عندي تسلم ايدك استاذي الغالي الله ينور شكرا لمساعدتك وجزاك الله كل خيرا 23 دقائق مضت, سليم حاصبيا said: الكود المطلوب Me.TextBox80.Value = Format(Evaluate("CEILING(" & Val(Me.Detels3) & ",0.05)"), "0.00") من مشاكل اللغة العربية ") الذي في البداية يجب ان يكون في نهاية السطر) عذرا لم اتمكن من رفع الكود بواسطة <> لبطء النت عندي لي استفسار بعد اذنك يوجد رساله كل دققتين تقريبا تظهر وعند اختيار اى امر يتم اغلاق الملف وفتحه من جديد استرداد الملف ما سبب ظهور هذه الرساله بصفه مستمره رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 18 دقائق مضت, ابو حمادة said: تسلم ايدك استاذي الغالي الله ينور شكرا لمساعدتك وجزاك الله كل خيرا لي استفسار بعد اذنك يوجد رساله كل دققتين تقريبا تظهر وعند اختيار اى امر يتم اغلاق الملف وفتحه من جديد استرداد الملف ما سبب ظهور هذه الرساله بصفه مستمره ساهد هذا الفيديو https://www.youtube.com/watch?v=L1lAF4Irqlk رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان