ACCESS AYUDA CON BD

[ALBUR]

Buenas noches a tod@,

Tengo una bd en Access (para resumir):
Tabla -> Expediente
    Id -> autonumerido (propiedades)
    Fecha -> fecha
    Expediente -> texto

Diseño el formulario con los campos Fecha y Expediente (cuadros de textos)
Formulario -> Expediente
  Lo que quiero es que en el cuadro expediente, cuando empiece el año me vuelva a enumerar empezando otra vez de nuevo, ej:
A001/13
A002/13
A003/13
A004/13 (tengo 4 registros) pasamos al 2014
B001/14
B002/14
B003/14 (tengo 7 registros
Es decir el cuadro de texto fecha recibe una fecha que si es del año 2013 pone de una manera y en el 2014 pone de otra, ya que cuando yo introduzca datos para el nuevo expediente analice esa fecha porque la toma de datos puede ser en este año y la fecha actual es del 2o14. El campo de fecha es una fecha que yo pongo
   
    Despues de ver y charlar muicho tiempo con google lo unico que he llegado a lo mas que he llegado es a

Código [Seleccionar] Expandir


Private Sub Expediente_Enter()
[Expediente] = "A" & Format([CurrentRecord], "000") & "/" & (Year(Date) - 2000)
End Sub

pepro esto no me vale

Un saludo

y muchas gracias