Office: (Office 2007) Tabelle mit Datumswerten automatisch füllen

Hallo

Wie könnte ich in einer Tabelle in ein Datumsfeld (StartDatum) automatisch immer von den nächsten 30 Tagen die Datumswerte (00.00.0000) eintragen lassen? Wenn ich also die Anwendung heute starte, dann soll von den nächsten 30 Tagen die Datumswerte in die tabelle geschrieben werden.
Danke

:)

 

Luftcode:
Code:

 

Schreib Dir in VBA eine kleine Schleife (I = 1 TO 30).
Darin fügst Du die Datensätze mit einer Anfügeabfrage (INSERT...) ein.

Evtl. solltest Du aber überlegen, was beim nächsten Programmstart passieren soll! Da würden ja wieder 30 neu DS generiert werden!
Du solltest da also zunächst prüfen, welches das älteste Datum in der Tabelle ist! Dann dementsprechend nur die "fehlenden" Zeilen generieren.

 

Hallo Rainer,

ein Recordset, eine Schleife von 1 bis 30 und die Funktion DateAdd sollten Dich zum Ziel bringen.

CU

 

So könnte es gehen - inkl. meines Kommentares in #3
(Tabelle1 ist Dein Tabellenname)

Code:

 

Noch ein Vorschlag - unter Berücksichtigung, dass ich Rainer so verstanden habe, dass er nur die 30 nächsten Tage in der Tabelle haben möchte: Code:

 

Zur Technik: Ich würde dazu eine Abfrage (ohne Schleife) verwenden. Prinzip:
Code:

T1000 ist dabei eine Hilfstabelle, die ein Feld I mit fortlaufenden Zahlen ab 0 enthält (PK), vergleiche SQL-Rezepte.
Hier könnte man auch zusätzlich auf das höchste vorhandene Datum prüfen und damit nur zusätzliche eintragen.

Zum Sinn: Das Anlegen von Dummydatensätzen in Stammdatentabellen wäre eher zu vermeiden. Auch hier bietet eine Hilfstabelle eine komfortable Lösung, in dem Fall eine Kalendertabelle, die alle Tage des benötigten Zeitraumes enthält (Datum als PK):
Code:

 

Ich denke 'sworks' hat das schon selber alles im Griff und gelöst - hat nur vergessen, uns zu informieren...
:-))

 

Hallo
die lösung von Maxel finde ich einfach und im Prinzip gut
nur glabe ich ein Fehler gesehen zu haben *confused.gif*
RS.DeinFeld = Date + X
sollte so sein *rolleyes.gif*
RS!DeinFeld = Date + X da DeinFeld doch keine Funktion ist.


die Lösung von Eberhard ist sehr Gut aber ein wenig schwerer zu verstehen *wink.gif*

 

Hallo Ruedi,

Du hast in beiden Fällen Recht.

Und: Bei dieser Aufgabenstellung führen viele Wege nach Rom - ein Eldorado für den Threadstarter. *wink.gif*

 

...wobei immer noch die Frage bleibt, was bei weiteren Programmstarts passieren soll (@sworks).
Immer 30 neue DS oder nur bis. maximal Heute+30...

 

Diese Frage stellt sich nur, wenn man Datensätze auf Vorrat anlegen will.
Wenn man seine Datensätze nur anlegt, wenn man richtige (vollständige) Inhalte hat, hat man sich alleine den Notwendigkeiten des Datenmodells zu beugen.

Wie bereits vorgeschlagen, haben Dummydaten ihren besseren Platz in einer Hilfstabelle.

 

\@ebs17
Ja, schon klar, ich meinte nur, diese Frage mal an "sworks" weiterzugeben...

An Alle noch Schönen Sonntag und viel Spaß bei F1 und EM...

 

Hallo zusammen
Meine Idee war das immer nur 30 Tage im voraus angelegt werden. Also heute 30und morgen an die bestehenden 29 einen Tag anhängen. Habe aber die Idee nun verworfen. Trotzdem danke ich euch für eure zahlreichen und sehr lehrreichen Ideen!

 

Hallo Eberhard,

ich habe eine kurze Frage zu deinem Lösungsvorschlag und deiner angesprochenen Prüfung auf bereits vorhandene Werte aus #7.

Sollte eine solche Lösung inkl. Prüfung so aussehen (zwecks Geschwindigkeit frage ich, die Prüfung mit WHERE NOT EXISTS habe ich der AEK8 - Abfrageperformance entnommen, die dort für eine solche Problemstellung empfohlen wird):

Code:

?

meine tbl_Dates ist meine Datumstabelle mit dem einzigen Feld DDate (Datum, Primärschlüssel ohne Duplikate).

In der Tabelle kann ich nicht zwingend sicherstellen, dass keine Werte gelöscht werden.
Da ich diese Tabelle bspw. zur Darstellung von Monatsübersichten nutze, muss ich also bei jeder Benutzung auf den gesamten Zeitraum prüfen, nicht nur auf das Minimum oder Maximum

Grüße