Intervalo de años en subformulario

Te anexo un ejemplo, ¿me confirmas si es lo que necesitas por favor?

Archivo que enlista años

Saludos y espero sea de utilidad

Suscríbete a mi canal: http://bit.ly/1KgurfF

Sigueme en Twitter https://twitter.com/RaduNordenhulk

Agregame en Facebook: http://on.fb.me/1oFUXVL

Sigue mis publicaciones en mi blog: http://radunordenhulk.blogspot.com/

Si lo que quieres es que fechaIni y FechaFin te actúen como filtro para el subformulario, y suponiendo que el subformulario se llame Otra basado en la tabla Otra y que tenga un campo Fecha, ya sea numérico para tomar los años como 2015, 2016, etc, ya sea tipo fecha.

En el evento Después de actualizar del cuadro de texto Fecha Fin, crea un procedimiento de evento y entre Private Sub y End Sub escribe

Me.Otra.Form.RecordSource = "select * from otra where fecha between year([fecha inicio]) and year([fecha fin])"

Esto en caso de que el campo Fecha sea numérico.

En el caso de que sea tipo fecha

Me.Otra.Form.RecordSource = "select * from otra where year([fecha]) between year([fecha inicio]) and year([fecha final])"

Por cierto. Si lo que quieres es que te cree tantos registros en el subformulario como diferencia de años hay, en el evento Después de actualizar del cuadro de texto FechaFinal pon

Private Sub FechaFinal_AfterUpdate()
Dim a As Integer, i As Variant
a = DateDiff("yyyy", FechaIni, FechaFinal)

For i = 0 To a

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into otra (fecha)values((Year([FechaIni]))+ '" & i & "')"

Next i
Me.Otra.Form.Requery

End Sub

Lo que hace es calcular la diferencia de años entre las dos fechas, y luego ir añadiendo registros(tantos como sea la diferencia) a la tabla Otra y poniendo en cada uno de ellos el año que le corresponda, 2015, 2016, 2017, etc. Y por último, hace que el subformulario "reconsulte" su origen de datos.