اجراء العمليات الحسابية بالكود في نموذج

[محمدعليعبدالباقي]

السلام عليكم الاخوة الكرام 

اعمل على برنامج لحساب المرتبات وبالفعل بفضل الله تعالى ثم مساعدة الاخوة الكرام في ( اوفيسنا )  انجزت جزء كبير منه 

ولكن تتم المعادلات في استعلام وقابلتنى مشكلة عند تشغيل البرنامج على اصدار اكسس اقل من 2013  وكذلك بطء استجابة البرنامج 

لذلك حاولت اجراء العمليات على الجدول من خلال كود في حدث عند النقر في زر  في نموذج  

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

 

العمليات الحسابية.rar

[صالح حمادي]

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

تفضل استعمل هذا الكود سوف يطبق العملية على جميع السجلات:

Dim i As Integer
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.MoveFirst
For i = 1 To rs.RecordCount
If t = cood Then
rs.Edit
rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd)
rs.Update
End If
rs.MoveNext
Next i
Set rs = Nothing

و بإمكانك إضافة باقي المعادلات

العمليات الحسابية.rar

[محمدعليعبدالباقي]

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

شكرا لك  اخى الكريم على سرعة الرد والاهتمام

ارجو التوضيح ماذا لو كانت المعادلة شرطية مثل 

 IIf ([asasy] * 0.04) <= 20: Me.[4%twshy] = 20
Else: [4%twshy] = ([asasy] * 0.04)

و هل من الممكن اختصار الكود او تنفيذ المطلوب بطريقة اسهل فالمعادلات كثيرة جدا 

تم تعديل يناير 6, 2017 بواسطه محمدعليعبدالباقي

[صالح حمادي]

13 ساعات مضت, صالح حمادي said:

rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd)

تحت هذا الكود أكتب باقي المعادلات. و لا يجب القيام بتكرار مقدمة أو مأخرة الكود. بهذا الشكل

rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd)
rs!eana1 = (rs!eana - (rs!eana / 10) * rs!hrmnd)

مع كتابة rs! قبل اسم كل حقل.

هناك بعض الأخطاء في تسمية الحقول بالجدول مثل استعمال اشارة الناقص بين كلمتين مثل (hd-adna) فعند استعمال هذا الاسم في الكود سوف يقرأها على أنها hd ناقص adna

و أيضا هذا التسمية (7%elwa) يجب استعمال اسماء واضحة دائمة و الإبتعاد عن الرموز التي قد تخلط عليك الأمر في البرمجة

 

[محمدعليعبدالباقي]

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

شكرا لك جزيل الشكر والعرفان   اخى الكريم على اهتمامكم البالغ 

هل من الممكن حل مشكلة اسماء الحقول بوضع اسم الحقل بين قوسين مثل : [hd-adna] وكذللك [elwa5%]

شكرا لكم على سعة الصدر وسرعة الرد والاهتمام 

[صالح حمادي]

2 ساعات مضت, محمدعليعبدالباقي said:

هل من الممكن حل مشكلة اسماء الحقول بوضع اسم الحقل بين قوسين مثل : [hd-adna] وكذللك [elwa5%]

لا يمكنك ذلك استعمل الشكل التالي :

hd_adna

و لا تجعل الحرف الأول من اسم الحقل رقم

و لا تدخل الرموز مثل % و ! و العمليات و الأقواس و غيرها من الرموز لأن لها دور معين في البرمجة و استعمالها في أسماء الحقول يحدث خلل و لخبطة في الكود

[محمدعليعبدالباقي]

شكرا لك جارى التعديل