السلام عليكم ورحمة الله وبركاته
الاخوه الكرام
ارفقت مثال به تعريف اصل ومن ثم ادخال بياناته وقيمته وعدد سنوات خصم الاهلاك
اوريد فضلا وليس امرا عند ادخال بيانات الاصل والضغط على زر توزيع قيمة الاصل على عدد السنين ومن ثم عدد الشهور في الجدول الفرعي
يتم توزيع مدة الاهلاك على عدد السنين وعدد الشهور بكل قيمة في النموذج الفرعي
حيث انه تم استخدام هذا الكود
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