اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أبو إبراهيم الغامدي,

الردود الموصى بها

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

فى هذا النموذج يحسب مبلغ الكهرباء و تم بالفعل اضافة سنة 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

تم تعديل بواسطه محمد احمد لطفى
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

كهرباء 2019.rar

رابط هذا التعليق
شارك

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

بالفعل 
 

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

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

تم تعديل بواسطه محمد احمد لطفى
رابط هذا التعليق
شارك

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

بالفعل 
 


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

 

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information