Access - Informe con fechas correlativas

Private Sub...

		'Declaro las variables

	Dim vFecha as Variant

	Dim vDias as integer

	Dim i as integer

	Dim rst as DAO.Recordset

		'Cojo los valores del formulario

	vFecha = nz(me.[dia inicio].value,0)

	vDias = nz(me.[numero dias].value,0)

		'Si no hay fecha no hago nada

	If vFecha=0 then Exit Sub

		'Si no hay días no hago nada

	If vDias=0 then Exit Sub

		'Borro los datos de la tabla temporal

	Docmd.setwarnings False

	Docmd.runSql("DELETE FROM TBaseInforme")

	Docmd.setwarnings True

		'Creo el recordset sobre la tabla

	Set rst=currentdb.openrecordset("TBaseInforme")

		'Inicio el proceso de rellenado de tabla

	For i=0 to vDias

		With rst

			.AddNew

			.Fields("cFecha").value=vFecha

			.Update

		End With

			'Añado un día a la fecha

		vFecha = vFecha + 1

	Next i

		'Abro el informe

	Docmd.openReport "RTratamiento",acViewPreview

		'Cierro conexiones y libero memoria

	rst.Close

	Set rst = Nothing

End Sub