ابو حمادة قام بنشر يوليو 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 وهكذا وجزاكم الله خيرا
سليم حاصبيا قام بنشر يوليو 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
ابو حمادة قام بنشر يوليو 16, 2017 الكاتب قام بنشر يوليو 16, 2017 20 دقائق مضت, سليم حاصبيا said: استيدل كلمة Round بكلمة Ceiling لتصيح المعادلة في الكود بهذا الشكل: Me.TextBox80.Value = Format(Ceiling(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") شكرا لاهتمامك استاذي الغالي تم استبدالها وعند التطبيق يظهر خطأ وتظهر هذه الرساله ويتم تحديد كلم (Ceiling) كما تشاهد في الصور
سليم حاصبيا قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 7 دقائق مضت, ابو حمادة said: شكرا لاهتمامك استاذي الغالي تم استبدالها وعند التطبيق يظهر خطأ وتظهر هذه الرساله ويتم تحديد كلم (Ceiling) كما تشاهد في الصور ارفع جزء من الملف للمعالجة 1
ابو حمادة قام بنشر يوليو 16, 2017 الكاتب قام بنشر يوليو 16, 2017 7 دقائق مضت, سليم حاصبيا said: ارفع جزء من الملف للمعالجة ملف مشابه للاصل لتخفيف الملف نتيجه.rar
سليم حاصبيا قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 29 دقائق مضت, ابو حمادة said: ملف مشابه للاصل لتخفيف الملف نتيجه.rar الكود المطلوب Me.TextBox80.Value = Format(Evaluate("CEILING(" & Val(Me.Detels3) & ",0.05)"), "0.00") من مشاكل اللغة العربية ") الذي في البداية يجب ان يكون في نهاية السطر) عذرا لم اتمكن من رفع الكود بواسطة <> لبطء النت عندي الملف مرفق نتيجه salim.rar 1
ابو حمادة قام بنشر يوليو 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") من مشاكل اللغة العربية ") الذي في البداية يجب ان يكون في نهاية السطر) عذرا لم اتمكن من رفع الكود بواسطة <> لبطء النت عندي لي استفسار بعد اذنك يوجد رساله كل دققتين تقريبا تظهر وعند اختيار اى امر يتم اغلاق الملف وفتحه من جديد استرداد الملف ما سبب ظهور هذه الرساله بصفه مستمره
سليم حاصبيا قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 18 دقائق مضت, ابو حمادة said: تسلم ايدك استاذي الغالي الله ينور شكرا لمساعدتك وجزاك الله كل خيرا لي استفسار بعد اذنك يوجد رساله كل دققتين تقريبا تظهر وعند اختيار اى امر يتم اغلاق الملف وفتحه من جديد استرداد الملف ما سبب ظهور هذه الرساله بصفه مستمره ساهد هذا الفيديو https://www.youtube.com/watch?v=L1lAF4Irqlk
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.