Cómo poner un campo autonumérico a cero con el comienzo del año

Tengo un a Base de Datos en Access 2003, que cuenta con un formulario llamado "Control asuntos" vinculado a la tabla llamada "Control asuntos" en la que hay dos campos denominados "contador" y "añoactual"

El campo "contador" es un autonumérico creado mediante el código:

Private Sub Form_Current ()

If Me.NewRecord Then
On Error Resume Next
Me!contador.DefaultValue = Nz(DMax("[contador]", "Tabla1"), 0) + 1
Textbox.value=contador
End If

y a continuación he añadido el siguiente código, con la pretensión de que el campo contador del formulario "Control asuntos" se ponga a cero automáticamente, al cambiar el año:

[año actual] = Year(Date)
If [contador] = Null Or [contador] = 0 Then
[contador] = DCount("[contador]", "Tabla1", "[año actual] =" & [año actual]) + 1
End If

If [contador] = 0 Then

[contador] = DCount("[contador]", "Tabla1") + 1

End If
End Sub

Sin embargo, cuando cambio la fecha al ordenador, el campo contador no me lanza el registro 1, si no continua con el registro siguiente al último creado.

Qué estoy haciendo mal? Porque Access no me lanza ningún error.

Gracias!