حدث يخرج نتيجة مئوية داخل حقل من خلال معطيات حقلين اخرين

[Abdelaziz Osman]

السلام  عليكم ورحمة الله

لدى ثلاث حقول داخل نموذج باسم form1

الحقل الاول باسم value1   حقل رقمى

الحقل الثانى باسم value2   حقل رقمى

الحقل الثالث باسم percentage

 

الحقل الاول يتم ادخال به عدد  &  وكذلك الحقل الثانى

المطلوب : -

حدث وظيفتة عندما يقوم المستخدم بادخال عدد فى الحقل الثانى

يعطى تلقائيا نتيجة مئوية خارج قسمة الحقل الثانى على الحقل الاول 

على سبيل المثال اذا تم ادخال العدد 800 بالحقل الاول ثم تم ادخال العدد 200 بالحقل الثانى

بعد كتابة العدد 200 تظهر تلقائيا خارج قسمة 200/800  كنسبة مئوية = 25%  بالحقل الثالث تلقائبا

وشكرا

 

تم تعديل يناير 20 بواسطه Abdelaziz Osman

[Foksh]

كمثال ، جرب هذا الكود:-

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

 

[kkhalifa1960]

مشاركةً مع استاذ @Foksh تفضل أخي @Abdelaziz Osman محاولتي مع الشرح والمرفق . ووافني بالرد .

                                                                                                         

DDTest1.rar

[Abdelaziz Osman]

يرجى التكرم  تقريب الرقم. لأقرب رقمين عشريين

[Abdelaziz Osman]

ليها حل

 

[Foksh]

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

[Abdelaziz Osman]

لك كل التقدير والاحترام Foksh