Access - Índice contador+año

Hola a todos

tengo el siguiente código en un formulario:

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim Anyo As Integer
Anyo = Year(Date)
Nº_Entrada = Nz(DMax("Nº_Entrada", "tblDocAdminE", "right(IdDoc,4) =" & Anyo)) + 1
IdDoc = Format(Nº_Entrada, "0") & "/" & Format$(Anyo)

End Sub

Lo he rescatado de un mensaje de mimenda, y es justo lo que necesito, puesto que para registrar un documento de entrada necesito darle un número correlativo que empiece otra vez de 1 al cambiar de año, y a la vez quiero que el índice esté formado por dicho número más el año actual.

Pero no incrementa. Es decir, en cada nuevo registro me pone
IdDoc: 1/2009
Nº Entrada: 1

Necesito vuestra ayuda por favor... alguien puede decirme dónde está el fallo?

Gracias por adelantado

Hola:
Pues no le veo ningún fallo. Pero eso ocurre porque la función DMax() siempre devuelve Nulo o sea: O y le suma 1.
Sí el campo IdDoc es el campo clave de tipo Texto
Sí el campo Nº_Entrada es un campo númerico (Entero largo)

Tendría que funcionar perfectamente. Te falta poner sí es un nuevo registro:

Dim Anyo As Integer
Anyo = Year(Date)

If NewRecord Then
Nº_Entrada = Nz(DMax("Nº_Entrada", "tblDocAdminE", "right(IdDoc,4) =" & Anyo)) + 1
IdDoc = Format(Nº_Entrada, "0/") & Format$(Anyo)
End If

Un saludo.

Hola mimenda,
al colgar esta consulta hice algo mal y se subió dos veces y vi la respuesta que me mandaron al otro pero no la tuya hasta ahora. Jefferson me mostró otra forma de hacerlo que me va muy bien, pero muchas gracias por tu respuesta.

Saludos!