Autononumerico para cada cambio de fecha
Lo que quiero es generar un campo que sea autonumérico(empiece por el 1 ) cada vez que cambie de fecha en el campo fecha.
1 Respuesta
Respuesta de Julián González Cabarcos
1
El inconveniente de los autonuméricos es que le dejas todo el control sobre ellos a Access y no puedes hacer nada(por eso no los aconsejo), aparte de que realmente no te va a servir para nada desde el momento en que se van a repetir números. Por eso, es mejor que el campo sea numérico, y como se van a repetir no lo pongas como clave. Supongamos que tienes una tabla Jugadores con los campos Idjugador, Nombre, FechaNac, Dirección, etc. Y un formulario del mismo nombre con esos campos. En las propiedades del cuadro de texto Fechanac, en Eventos-Antes de actualizar crea un procedimiento de evento y entre Private Sub...y End Sub escribe
Dim a As Byte
a = DCount("fechanac", "jugadores", "[fechanac]=[forms]![jugadores]![fechanac]")
If a = 0 Then
Idjugador = 1
Else
Idjugador = 1 + DLast("idjugador", "jugadores")
End If
Así, cuando escribas la fecha en el primer registro del formulario te pondrá un 1, en el segundo, si la repites pondrá un 2. Cuando la cambies te pondrá un 1, etc.
Dim a As Byte
a = DCount("fechanac", "jugadores", "[fechanac]=[forms]![jugadores]![fechanac]")
If a = 0 Then
Idjugador = 1
Else
Idjugador = 1 + DLast("idjugador", "jugadores")
End If
Así, cuando escribas la fecha en el primer registro del formulario te pondrá un 1, en el segundo, si la repites pondrá un 2. Cuando la cambies te pondrá un 1, etc.
