Problemas numerico autoreiniciable

Saludos, de antemano agradezco la atención prestada al presente.
Mi problema es que necesito un autonumérico que se reinicie al cambiar el año
Tengo una tabla denominada "oficiosingresos"(tiene un campo "IdOficio" numérico largo, y un campo "Anio"), y un formulario donde se registran los documentos que van ingresando.
Este es el código que tengo para este formulario, a fin de que asigne un numero cada vez que agrego un registro, pero al intentar que se reinicie cada año tengo problemas.
Gracias.
Private Sub Agregar_Click()
On Error GoTo Err_Agregar_Click
DoCmd.GoToRecord , , acNewRec
IdOficio.Locked = False
Volante.Locked = False
Noficio.Locked = False
Cuadro_combinado64.Locked = False
FechaElaboracion.Locked = False
FechaIngreso.Locked = False
FechaContestación.Locked = False
SolicitaContestación.Locked = False
Contestado.Locked = False
IdExpediente.Locked = False
IdEmpleadoRemitente.Locked = False
IdEmpleadoDestinatario.Locked = False
IdInstrucción.Locked = False
Asunto.Locked = False
Instruccion.Locked = False
Anexos.Locked = False
Observaciones.Locked = False
Contestado_con.Locked = False
Volante.SetFocus
Guardar.Visible = True
Deshacer.Visible = True
AbrirFrmOficios.Visible = True
Expedientes.Visible = True
If Me.NewRecord Then
Me.IdOficio = Nz(DMax("idoficio", "oficiosingresos"), 0) + 1
End If
Exit_Agregar_Click:
Exit Sub
Err_Agregar_Click:
MsgBox Err.Description
Resume Exit_Agregar_Click
End Sub