Tabla con fechas

Desde cuando? Siempre puedes crear la tabla usando la fecha del sistema como
punto de partida y restando los dias uno a uno hasta llegar cero.

For intX = 200 to 0 Step -1
[fecha] = Date() - intX
(aqui creas el registro e insertas el campo [fecha])
Next


Victor Delgadillo [MVP Access]
Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.

_
wrote in message
news:

Amigos:

Necesito armar una tabla con fechas hasta la fecha actual del sistema.

Sería

bárbaro que se pudiera actualizar automáticamente; es decir, que al abrir

la

tabla agregue los días que falten.

Gracias

Julio.

Mi idea era:

1) Elegir una fecha de inicio arbitraria (por ejemplo, #01/06/2001# )
2) Hacer un procedimiento en VBA que, cuando se abra la base de datos,
realice este algoritmo:

a. Abrir la tabla ISSUEDATE
b. Si la tabla no está vacía, calcular el máximo entre #01/06/2001# y el
máximo de ISSUEDATE;
sino, el máximo es #01/06/2001#
c. Hacer un For i = máximo to DATE() que agregue las fechas desde máximo
hasta DATE() (sin repetir)

Domadores de VBA, les tiro el guante.

Gracias

Julio.

Bueno, en fechas, el limite seria mas bien el 'minimo', ya que seria la
'menor fecha' de la tabla.
Si inicias la tabla manualmente, puedes continuar actualizandola con:
Ultima_Fecha = Max("[Date_Key","Tabla1") ' asignas un valor inicial
Do While Ultima_Fecha < Now ' si estuviera al
dia, no hace ningun update
Ultima_Fecha = Max("[Date_Key]","Tabla1") + 1
With rst
.Move Last
.AddNew
!Date_Key = Ultima_Fecha
.Update
End With
Loop
(Previamente abres la tabla con un select sql y dimensionas el recordset y
el canal de comunicacion.)

Victor Delgadillo [MVP Access]
Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.

_
wrote in message
news:

Mi idea era:

1) Elegir una fecha de inicio arbitraria (por ejemplo, #01/06/2001# )
2) Hacer un procedimiento en VBA que, cuando se abra la base de datos,
realice este algoritmo:

a. Abrir la tabla ISSUEDATE
b. Si la tabla no está vacía, calcular el máximo entre #01/06/2001# y

el

máximo de ISSUEDATE;
sino, el máximo es #01/06/2001#
c. Hacer un For i = máximo to DATE() que agregue las fechas desde

máximo

hasta DATE() (sin repetir)

Domadores de VBA, les tiro el guante.

Gracias

Julio.

Gracias mil. Lo probaré.