Here is the code for the query
INSERT INTO [Data Archive] ( [Employee number], Type, [Date], Comment )
SELECT [Absent Data].[Employee number], [Absent Data].Type, [Absent Data].Date, [Absent Data].Comment
FROM [Absent Data]
WHERE ((([Absent Data].Date)<=DateAdd("m",-4,Date())));
Mile
I need...