Abdelaziz Osman قام بنشر يناير 20 مشاركة قام بنشر يناير 20 (معدل) السلام عليكم ورحمة الله لدى ثلاث حقول داخل نموذج باسم form1 الحقل الاول باسم value1 حقل رقمى الحقل الثانى باسم value2 حقل رقمى الحقل الثالث باسم percentage الحقل الاول يتم ادخال به عدد & وكذلك الحقل الثانى المطلوب : - حدث وظيفتة عندما يقوم المستخدم بادخال عدد فى الحقل الثانى يعطى تلقائيا نتيجة مئوية خارج قسمة الحقل الثانى على الحقل الاول على سبيل المثال اذا تم ادخال العدد 800 بالحقل الاول ثم تم ادخال العدد 200 بالحقل الثانى بعد كتابة العدد 200 تظهر تلقائيا خارج قسمة 200/800 كنسبة مئوية = 25% بالحقل الثالث تلقائبا وشكرا تم تعديل يناير 20 بواسطه Abdelaziz Osman رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 كمثال ، جرب هذا الكود:- Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية وتحديث الحقل الثالث (percentage) Me.percentage = (Me.value2 / Me.value1) * 100 & " %" Else ' يمكنك تنفيذ إجراء آخر إذا كان الحقل الأول يحتوي على صفر أو لا يتم التعامل معه بشكل آخر End If End Sub 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر يناير 21 أفضل إجابة مشاركة قام بنشر يناير 21 مشاركةً مع استاذ @Foksh تفضل أخي @Abdelaziz Osman محاولتي مع الشرح والمرفق . ووافني بالرد . DDTest1.rar 1 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 22 الكاتب مشاركة قام بنشر يناير 22 يرجى التكرم تقريب الرقم. لأقرب رقمين عشريين رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 22 الكاتب مشاركة قام بنشر يناير 22 ليها حل رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 22 مشاركة قام بنشر يناير 22 (معدل) 8 ساعات مضت, Abdelaziz Osman said: يرجى التكرم تقريب الرقم. لأقرب رقمين عشريين استخدم الدالة Round ، وهذا تعديل على مثالي في مشاركة سابقة Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية Dim percentageValue As Double percentageValue = (Me.value2 / Me.value1) * 100 ' تقريب النتيجة لأقرب عدد كسري مع حد أقصى من خانتين عشريتين Me.percentage = Round(percentageValue, 2) & " %" End If End Sub تم تعديل يناير 22 بواسطه Foksh 2 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 23 الكاتب مشاركة قام بنشر يناير 23 لك كل التقدير والاحترام Foksh رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان