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

[omarahmed1424]

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

إخواني أعضاء المنتدى الكرام كل عام وأنتم بخير ...

أحاول أن أنفذ إجراء التعديل على جميع سجلات نموذج مفرد  في برنامجي حيث تم إضافة خانة لحساب القيمة المضافة بنسبة 5 % من كامل الرسوم الدراسية ويتم الحساب تلقائيا بمعادلة موضوعة على حدث عند تغيير الرسوم أو الباص أو العام السابق أو الخصم ولكن يلزم لذلك إجراء أي تغيير في هذه المعطيات ولو بإعادة كتابتها واستخدام زر التعديل ثم الحفظ في النموذج 

فهل هناك طريق لحساب ضريبة القيمة المضافة لكل سجل تلقائيا دون للجوء لهذه الدائرة الطويلة 

[Amr Ashraf]

11 ساعات مضت, omarahmed1424 said:

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

فهل هناك طريق لحساب ضريبة القيمة المضافة لكل سجل تلقائيا دون للجوء لهذه الدائرة الطويلة 

 

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

ممكن تعملها فى حدث On Timer مثلا يعملها تلقائى بعد عدد محدد من الثوانى يعنى مثلا لو بتضيف السجل فى 5 دقايق اظبط التوقيت على 5 دقائق لحد ما تكمل البيانات وبعدها تلقائى المعادلة تشتغل .... او اعمل الكود فى زر امر تستدعيه وقت ما تحتاجه بالتوفيق

 

 

[kanory]

أخي الكريم يمكن استخدام قاعدة For , Next  للمعادلة المطلوبة لجميع السجلات

[omarahmed1424]

21 ساعات مضت, kanory said:

أخي الكريم يمكن استخدام قاعدة For , Next  للمعادلة المطلوبة لجميع السجلات

ممكن مثال على الكود للتطبيق على البرنامج لدي وجزاكم الله خيرا 

[kanory]

Dim i As Integer
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.countRec
hafez = salary * 0.2
kest = 20
    total = [salary] + [hafez] - [kest]
    DoCmd.GoToRecord , , acNext
Next