Access - campo calculado

como crear una lista para un textbox de un informe,nose si me explico,ejemplo:

un codigo de factura en el cambia un numero solamente:
queremos q aparezca cod"numero q cambia"-"año en el q se a hecho la factura"
lo del cod y el año ya se acerlo mediante funciones
pero como acer q ese numero cambie cada vez q sea una nueva factura???

Private Sub Form_Current()
If Not Me.NewRecord Then Exit Sub
Me.año= Val(Format(Date, "yy"))
Me.cod= Nz(DMax("cod", "Tu tabla", "año= " & Val(Format(Date, "yy"))), 0) + 1
End Sub

A ver si te funciona con esto.
Además, con este código, cuando cambias de año vuelve a iniciar el contador