Problemas con un campo numérico de access
Tengo una base de datos en access con un campo numérico (no autonumérico) que se incrementa en uno (+1)cada vez que introduzco un nuevo registro mediante el formulario. Quisiera saber como puedo hacer para que ese valor empiece en 1 cada vez que empiece un año nuevo. Debo decir que en existe un campo fecha que por defecto se pone el día actual.
Si puede ser quisiera una solución utilizando macros
Si puede ser quisiera una solución utilizando macros
1 Respuesta
Respuesta de Julián González Cabarcos
1
Creo que con macros no se puede hacer.
Supongamos que tienes una tabla Otra con Id,Fechapregunta,etc. En el formulario, en las propiedades del cuadro Fechapregunta, en Eventos-Antes de actualizar crea un procedimiento de evento y entre Private Sub y End Sub escribe
If Year([FechaPregunta]) <> Year(DLast("fechapregunta", "otra")) Then
Id = 1
Else
Id = 1 + Nz(DLast("id", "otra"))
End If
Así, cuando escribas el primer registro(como no hay otro anterior) te pondrá un 1. Cu8ando escribas el siguiente, si el año es el mismo te pondrá 2, si fuera distinto te pondría un 1.
Supongamos que tienes una tabla Otra con Id,Fechapregunta,etc. En el formulario, en las propiedades del cuadro Fechapregunta, en Eventos-Antes de actualizar crea un procedimiento de evento y entre Private Sub y End Sub escribe
If Year([FechaPregunta]) <> Year(DLast("fechapregunta", "otra")) Then
Id = 1
Else
Id = 1 + Nz(DLast("id", "otra"))
End If
Así, cuando escribas el primer registro(como no hay otro anterior) te pondrá un 1. Cu8ando escribas el siguiente, si el año es el mismo te pondrá 2, si fuera distinto te pondría un 1.
