Foro de programacion

Pretendo que un campo me genere un contador, que con el cambio de año regrese a 1. Para esto trabajo del modo siguiente:
Supongamos una tabla llamada Expedientes en la que, entre otros, existen los campos Añoactual, (formato numérico, me genera el año en que estamos automaticamente con el comando que indico), y Numexp, que controla el campo contador del que hablamos. Como estos campos se van a calcular automáticamente, en el formulario de entrada de datos no serán punto de tabulación. Por esta razón vamos a tener en cuenta el primer campo que reciba el enfoque del cursor para introducir un dato. En las propiedades de este campo, ir al evento Al recibir el enfoque para incluir unas líneas de código como las siguientes:

[Añoactual] = Year(Date)

If [Numexp] = Null Then

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

End If

If [Numexp] = 0 Then

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

End If

Con este procedimeinto solo consigo que se genere automáticamente el año y que avance el contador, sin que regrese a 1 como es mi objetibo, con el cambio de año año. Agradezco de antemano buestra colaboración. :?:

La solución me la ha pasado el maestro Ignacio y la publico, para que aprendamos de el:

[Añoactual] = Year(Date)

If [Numexp] = Null OR [Numexp] = 0 Then

[Numexp] = DCount("[Numexp]", "Expedientes", "[Añoactual] =" & [Añoactual]) + 1

End If