Access - vambio numeración al cambiar fecha

Tengo un campo numérico incremental para el que utilizo lo siguiente:

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.NewRecord Then
Me.Partida = Nz(DMax("Partida", "Partidas")) + 1
End If
End Sub

Lo que quisiera obtener es que la numeración correlativa que genera, se reinicie cuando cambio la fecha; es decir, que cada día inicie la numeración desde el 1. He leido lo del cambio de numeración al cambiar el año y...... me pierdo por burro.

Hola:
Es fácil
Antes de incrementar tienes que comprobar la fecha, si la útima fecha de la tabla es INFERIOR al día actual, entonces Me.Partida=1 ELSE Me.partida=.... (tu condición)

Algo así:

If Me.NewRecord Then
If fecha (ultimo registro)<Date() then
Me.partida=1
ELSE
Me.Partida = Nz(DMax("Partida", "Partidas")) + 1
End if
End If

Un saludo
Victoria

Me funciona !!! Victoria¡¡¡ gracias.