Necesito llenar en una tabla un campo con fechas desde el 01/01/2002 hasta
01/01/2007, es decir un dia por registro, y he oido o visto en algun hilo
que se pueden crear registros de esta forma por codigos. . La tabla está
vacia y el campo que recibira la fechas es de tipo fecha.
No se si me explico, es una fecha por registro
Alguien sabe como hacerlo?
BUHO
====
Function Rellena()
Dim Rs As DAO.Recordset, VarFecha As Date
Set Rs = CurrentDb.OpenRecordset("Select * From Fecha")
VarFecha = CDate("01/01/2002")
Do While VarFecha < CDate("01/01/2007")
With Rs
.AddNew
!Fecha = VarFecha
.Update
End With
VarFecha = VarFecha + 1
Loop
Rs.Close
Set Rs = Nothing
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)