Access - Numeracion automatica dependiente del año

tengo un campo año y otro de contador automatico y queria que el contador se reiniciara al cambiar el año. e buscado por internet y e encontrado esto:

[Añoactual] = Year(Date)
If [Numexp] = Null OR [Numexp] = 0 Then
[Numexp] = DCount(\"[Numexp]\", \"Expedientes\", \"[Añoactual] =\" & [Añoactual]) + 1
End If

If [Numexp] = 0 Then

[Numexp] = DCount("[Numexp]", "Expedientes") + 1

End If

la url es: http://www.gratiszona.com/trucos/trucos_access/numeracion_automatica_dependiente_cambio_ano.htm
pero hay un error en la tercera linea, ¿sabe alguien de que puede ser? yo no doy con la tecla.

Hola:

saca los slashs de la tercera línea:

[Añoactual] = Year(Date)
If [Numexp] = Null OR [Numexp] = 0 Then
[Numexp] = DCount("[Numexp]", "Expedientes", "[Añoactual] =" & [Añoactual]) + 1
End If

If [Numexp] = 0 Then

[Numexp] = DCount("[Numexp]", "Expedientes") + 1

End If

avísame si funciona... yo intenté ...pero vuelve a cero.

Sldos.