Para los que siguen este hilo, quiero dar las gracias al maestro Ignacio y con su permiso publico la respuesta.

[Añoactual] = Year(Date)

If [Numexp] = Null OR [Numexp] = 0 Then

[Numexp] = DCount("[Numexp]", "Expedientes", "[Añoactual] =" & [Añoactual]) + 1

End If

Gracias genio por compartir tu sabiduria.