حساب كهرباء 2019 - 2020 + اضافة على الوحدة النمطية

[محمد احمد لطفى]

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

فى هذا النموذج يحسب مبلغ الكهرباء و تم بالفعل اضافة سنة 2019 - 2020
المطلوب اضافة الكود التالى الى الوحدة النمطية من بعد تاريخ 1/7/2019 
 

f Me.Consum >= 0 And 50 Then
Me.رسوم_و_دمغات = "1.25"
Me.الشريحة = "الشريحة الاولى"
End If

If Me.Consum >= 51 And 100 Then
Me.رسوم_و_دمغات = "2.25"
Me.الشريحة = "الشريحة الاولى"
End If

If Me.Consum >= 101 And 200 Then
Me.رسوم_و_دمغات = "6.33"
Me.الشريحة = "الشريحة الاولى"
End If

If Me.Consum >= 201 And 350 Then
Me.رسوم_و_دمغات = "11.33"
Me.الشريحة = "الشريحة الثانية"
End If
If Me.Consum >= 351 And 650 Then
Me.رسوم_و_دمغات = "15.33"
Me.الشريحة = "الشريحة الثالثة"
End If

If Me.Consum >= 651 And 1000 Then
Me.رسوم_و_دمغات = "25.33"
Me.الشريحة = "الشريحة الرابعة"
End If

If Me.Consum >= 1000 And 10000 Then
Me.رسوم_و_دمغات = "40.33"
Me.الشريحة = "الشريحة الخامسة"
End If

و تكون النتيجة فى نفس حقول الجدول رسوم و دمغات و الشريحة 

و جزاكم الله خيراً

كهرباء 2019.rar

تم تعديل يوليو 6, 2019 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

مع كوني أول من أسس لك هذه الشفرة إلا أني لم أعد أتذكر كيف أسستها! 

المهم الآن إذا أردت إدخال البيانات مباشرة في الجدول وترك الاعتماد على الاستعلام

.. فيجب تعديل الشفرة أعلاه وذلك بتبديل عيارة If بعبارة Select Case .. اقرأ عن هذه الأخيرة في التعليمات..

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

.. لا أظن أنك بحاجة إلى فحص تاريخ القراءة إلا إذا كان تاريخ سريان الشرائح لم يأتي بعد.ز

.. من الخطأ بقاء شفرة شرائح السنوات الماضية في المشروع! إلا إذا كان لديك فواتير متأخرة تريد جدولتها.

 

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي

- مع كوني أول من أسس لك هذه الشفرة إلا أني لم أعد أتذكر كيف أسستها! 
- حضرتك من أسس البرنامج وتعلمت منك الكثير اللهم اجعله في ميزان حسناتك

- 

.. من الخطأ بقاء شفرة شرائح السنوات الماضية في المشروع! إلا إذا كان لديك فواتير متأخرة تريد جدولتها.
هذا يفيد بعض الاحيان لانى لا احذف السنوات السابقة 

ممكن حضرتك اضافة الكود فى الوحدة النمطية و تشغيلهل فى الاستعلام  و بدون تحديد تاريخ

جزاك الله خيراً

 

[محمد احمد لطفى]

للرفع

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

جمعت لك البيانات كلها في وضيفة واحدة وسميتها ()Cons0819 

الأرقام في اسم الوظيفة يدل على الشهر والسنة

للوظيفة ثلاث محددات: تاريخ الاستهلاك، وكمية الاستهلاك، ودليل البيانات الراجعة

كتبت في الوظيفة تفسيرا لقيمة البيانات الراجعة

قمت بوضع بعض القيمة الراجعة من الوظيفة بجوار نظيرها في الاستعلام  من أجل إجراء مقارنة سريعة للتأكد صحة البيانات

المهم أن الوظيفة ينقصها بعض المراجعة والضبط مع متطلباتك.. أرجو التكرم بالمراجعة.. 

إليك التعديل: كهرباء 2019.mdb

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي
ممكن طلب صغير عند جمع المبلغ مع الرسوم والدمغات يكون الناتج 33415.33 وهو خاطىء حيث 334 هو المبلغ و الرسوم 15.33 عند جمعهما يصبح 349.33

[أبو إبراهيم الغامدي]

16 دقائق مضت, محمد احمد لطفى said:

جمع المبلغ مع الرسوم والدمغات يكون الناتج 33415.33 وهو خاطىء

هذا ليس جمعاً!.. هذا اقتران سببه أحد أمرين؛ إما أن تكون البيانات المدخلة أحدهما أو كلاهما عبارة عن سلسلة نصية، أو أن يكون العامل علامة الاقتران (&) وليس علامة الزائد (+) 

أرجو التكرم بتفقد ما ذكر رجاءً..

[محمد احمد لطفى]

5 دقائق مضت, أبو إبراهيم الغامدي said:

هذا ليس جمعاً!.. هذا اقتران سببه أحد أمرين؛ إما أن تكون البيانات المدخلة أحدهما أو كلاهما عبارة عن سلسلة نصية، أو أن يكون العامل علامة الاقتران (&) وليس علامة الزائد (+) 

أرجو التكرم بتفقد ما ذكر رجاءً..

المطلوب سداده2016: [Cost]+[level]+[تسويات و اقساط]

 

كهرباء 2019.rar

[أبو إبراهيم الغامدي]

3 دقائق مضت, محمد احمد لطفى said:

المطلوب سداده2016: [Cost]+[level]+[تسويات و اقساط]

[level]  تعيد سلسلة نصية عبارة عن اسم الشريحة

في الاستعلام: قم بإنشاء عمود جديد باسم pay مثلا ثم مرر عليه الوظيفة على أن تكون قيمة المحدد الثالث (4)؛ بهذا تحصل على قيمة تمثل قيمة الرسوم والدمغات لنفس مستوى الشريحة ثم قم بوظعه بدلا عن [level]

[محمد احمد لطفى]

بالفعل 
 

level: Cons0819([issue date];[consum];4)

لما بجمع 
cost + تسويات واقساط = رقم صحيح 
level + تسويات و اقساط = رقم صحيح
و لكن عند جمعهما معا تحدث المشكلة

تم تعديل يوليو 10, 2019 بواسطه محمد احمد لطفى

[أبو إبراهيم الغامدي]

58 دقائق مضت, محمد احمد لطفى said:

بالفعل 
 

level: Cons0819([issue date];[consum];4)

 

 آسف جدا.. دائما ما توقني الوظيفة متنوعة البيانات في الخطأ عند استخدامها في الاستعلام...

غير الشفرة أعلاه إلى

level: CDbl(Cons0819([issue date];[consum];4))
وكذلك
Cost: CDbl(Cons0819([issue date];[consum];1))