Contador en Base datos Acces (comienzo - anual)
 

:confuso: 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.

:-} Alguien puede ayudar un poquito en programación con acces......
No conprendo donde esta el fallo, en la configuración regional de interpretación de fechas, formato del campo.... La formula a priori es correcta, alguien ha trabajado con contadores de avance y retorno...

Ok
 

Para los que siguen este hilo, quiero dar las gracias al maestro Ignacio y con su permiso publico la respuesta.

[Añoactual] = Year(Date)

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

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

End If

Gracias genio por compartir tu sabiduria. :D