توزيع قيمة الاصل على عدد السنين المدخله

[أمير ادم]

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

الاخوه الكرام

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

 

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

يتم توزيع مدة الاهلاك على عدد السنين وعدد الشهور بكل قيمة في النموذج الفرعي

 

حيث انه تم استخدام هذا الكود 

Private Sub CmdOdiaitAcc_Click()
On Error Resume Next
'If Me.Form.Table1.Dater = 0 Then
'MsgBox "mmmmmmmmmmm", vbCritical, "xxxxx"
'Else
Dim strSQL As String
strSQL = "DELETE Table2.[id], Table2.id, Table2.Dater,Table2.Salary_Montr, Table2.totalsH  FROM Table2 WHERE (((Table2.id)=[FORMS]![Table1]![id]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings False
Me.Requery
DoCmd.GoToRecord , , acFirst
For i = 0 To Forms![Table1]![NoDayR] - 1
Me.ID = Forms![Table1]![ID]
Me.DatDay = DateAdd("d", i, Forms![Table1]![Dater])
Me.SatAmil = Forms![Table1]![SatAmil]
Me.TimeIn = Forms![Table1]![TimIn]
Me.TimeOut = Forms![Table1]![TimeOut]
Me.NoHou = Nz(([TimeOut] - [TimeIn]), 0)
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery
'End If
End Sub

ولم يظبط معي وتم ارفاق المثال للعمل عليه

 

Access Database.rar

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

[أمير ادم]

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

رجاءا المساعدة 

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

[أمير ادم]

4 hours ago, أمير ادم said:

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

رجاءا المساعدة 

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

 

[أمير ادم]

[أمير ادم]

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

اخواني الكرام المحترمين

اعلم كل العلم بانني اطلب المساعده وهذا فضلا وليس امرا

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

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

رغم انها ليست المرة الاولى  اذكنتم ( الخبراء ) في هذا المجال وتتجالهون المبتداء فما علينا بفاعلون

بتجاهلكم الى طلاب العلم منكم

الشكر كل الشكر اليكم