How long have you been doing this? as I would expect a core of queries.
If you took the time now, to fix the problem, it is a one time fix, and should not be that difficult, if you have managed to get where you are today?
Continue down this path and this will repeat year after year.
For a little bit of pain now, you can save yourself a lot of pain further down the road. I myself, and I am sure others, would be prepared to help with it as well.?
That said, and still against my better judgement, I knocked up a little code to show what I was thinking of.
It is purely for queries at the moment, but the concept would be the same for reports, forms etc.
Comment out the copy and uncomment the Debug.print until you get the queries you need to copy, then reverse the procedure.
Obviously the criteria is different as well, so replace the "1" with whatever you have now and the Year(Date) with the correct year value.
Code:
Sub CopyQuery()
Dim qdf As DAO.QueryDef
Dim db As DAO.Database
Dim strNewname As String
Set db = CurrentDb
For Each qdf In db.QueryDefs
If Left(qdf.Name, 1) <> "~" And InStr(1, qdf.Name, "1") > 0 Then
'Debug.Print qdf.Name
DoCmd.CopyObject , Replace(qdf.Name, "1", Year(Date)), acQuery, qdf.Name
End If
Next
Set qdf = Nothing
Set db = Nothing
Application.RefreshDatabaseWindow
End Sub
HTH