automatisch vullen tabel

[arnoderuig]

Ik heb een tabel met daarin de datum van elke zaterdag. Voorlopig heb ik die gevuld met de datums tot en met 2003. Ik zoek nu een methode om deze tabel aan te vullen met de data van alle zaterdagen in 2004 (en later weer 2005 enz.). Kan dat?

Arno de Ruig.

 

[Hooija]

Met een stukje code gaat dit vrij simpel.

Public Sub VulZaterdag()
Dim dt As Date
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("zaterdagen")
dt = Date
While Year(Date) = Year(dt)
If Format(dt, "ddd") = "za" Then
rs.AddNew
rs!zaterdag = dt
rs.Update
End If
dt = dt + 1
Wend
End Sub