Tabelle mit KalenderdatenEinige Zwecke, zum Beispiel die Anzeige von Kalendern in Berichten, können das Vorhandensein einer Tabelle mit den gewünschten Daten erforderlich machen. Im vorliegenden Beitrag lernen Sie eine Tabelle zur Speicherung dieser Daten sowie eine VBA-Funktion kennen, mit der dieser Tabelle gefüllt werden kann.
BeispieldatenbankDie Beispieldatenbank zu diesem Beitrag können Sie downloaden. Sie enthält die Tabelle tblKalenderdaten und das Modul mdlKalenderdaten.
Die Tabelle tblKalenderdatenDie Tabelle zur Speicherung der Kalenderdaten enthält drei Felder: ein Primärschlüsselfeld namens ID, ein Feld zum Speichern des Datums und eines für das Kürzel des Kalendertages - also beispielsweise Mo oder Di. Die Funktion KalenderdatenSchreibenDie Funktion zum Füllen der Tabelle tblKalenderdaten erwartet zwei Parameter, die den Zeitraum der zu schreibenden Kalenderdaten umreißen.
Der Funktionsaufruf für das Schreiben aller Daten des Jahres 2003 lautet beispielsweise folgendermaßen:
KalenderdatenSchreiben "1.1.2003", "31.12.2003"
Die Funktion hat folgendes Aussehen:
Public Function KalendertageSchreiben(DatumVon As Date, DatumBis As Date)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim AktuellesDatum As Date
Set db = CurrentDb
Set rst = db.OpenRecordset("tblKalendertage", dbOpenDynaset)
For AktuellesDatum = DatumVon To DatumBis
rst.AddNew
rst!Datum = AktuellesDatum
rst!Kalendertag = Format(AktuellesDatum, "ddd")
rst.Update
Next
End Function |
