السلام عليكم،، ومساؤكم سعيد،، وأسأل الله في هذه اللحظات لكم البركة في الأهل والمال والولد والتوفيق لكل خير.. أساتذتنا الكرام،، لدي جدول به أسماء أشخاص ولكل واحد منهم تاريخ بدء وتاريخ انتهاء.. مثلا محمد البداية من 1/8/2018 والانتهاء 5/8/2022 المطلوب كيف يمكن استخراج الأعوام بين التاريخين بمعنى أريد جدولا آخر أو استعلاما يظهر الآتي محمد 2018 2019 2020 2021 2022 فهذه الأعوام التي بين التاريخين،، وكذلك بقية الأسماء.. مع جزيل الشكر وعظيم الامتنان،، الأعوام بين تاريخين.accdb

Sub InsertYears() Dim rsSource As DAO.Recordset Dim rsTarget As DAO.Recordset Dim StartDate As Date Dim EndDate As Date Dim iYear As Integer DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TEMP_DATE.* FROM TEMP_DATE;" DoCmd.SetWarnings True Set rsSource = CurrentDb.OpenRecordset("date1") Set rsTarget = CurrentDb.OpenRecordset("TEMP_DATE") Do Until rsSource.EOF StartDate = rsSource!t2 EndDate = rsSource!t3 For iYear = Year(StartDate) To Year(EndDate) rsTarget.AddNew rsTarget!t2 = CStr(iYear) rsTarget!t1 = rsSource!t1 rsTarget.Update Next iYear rsSource.MoveNext Loop rsSource.Close rsTarget.Close Set rsSource = Nothing Set rsTarget = Nothing End Sub