مساعدة في تجاوز الاصفار في العمليات الحسابية

[ازهر عبد العزيز]

السلام عليكم ,,,,,,

لدي نموذج تجريبي  يحتوي ثلاثة حقول   X1,X2,X3   احتاج حقل اخر  في النموذج او في الجدول او الاستعلام هو  ناتج ضرب الحقول الثلاثة  بشرط يتجاوز الاصفار عند العملية الحسابية اي لو كان الحقل X1 = 2     و الحقل X2 = 0    والحقل X3 = 3 فالناتج يكون    6      متجاوز الصفر في الحقل   X2           ملاحظة الجدول الرئيسي لدي يحتوي 45 حقلا          

xy.accdb

تم تعديل سبتمبر 1, 2020 بواسطه ازهر عبد العزيز

[محمد أبوعبدالله]

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

تفضل اخي الكريم

هذا في وحدة نمطية

Public Function XSum(A As Integer, B As Integer, C As Integer) As Integer

    If A = 0 Then A = 1
    If B = 0 Then B = 1
    If C = 0 Then C = 1
    
    XSum = A * B * C

End Function

وهذا في النموذج

 Me.X5 = XSum(Me.x1, Me.x2, Me.x3)

xy.rar

 

تحياتي

تم تعديل سبتمبر 1, 2020 بواسطه محمد أبوعبدالله

[ازهر عبد العزيز]

اجابة اكثر من ابداعية لكن هناك مشكلة استاذي الغالي محمد ابو عبد الله  هي انة لدي حقول تحتاج الى طرح وجمع وتقسيم وبتحويلك الصفر الى 1 سيشترك في باقي العمليات الحسابية طبعا السبب مني لم اوضح وبالحقيقة لم تخطر ببالي فكرة تحويل الصفر الى واحد 

[محمد أبوعبدالله]

بالنسبة للضرب والقسمة فالكود يفي بالغرض

اما بالنسبة للجمع والطرح فانت فلست في حاجة الى كود فالعملية تتم بدالة NZ فقط

nz(x2;0)+nz(x3;0)-nz(x4;0)

وضح اكثر للمطلوب بارك الله فيك

تحياتي