Bericht erstellen

hi,

ich habe eine tabelle in der 10 termine erfasst werden.
ich möchte nun einen bericht erstellen, der alle termine enthälte die 5 tage vor und 2 tage nach dem aktuellen datum liegen.
dass das irgendwie mit einer abfrage geregelt werden kann ist mir schon klar.
aber mein abfragekriterium funktioniert irgendwie nicht richtig.

wer kann mir weiterhelfen ???
gibt es dafür einen eleganten weg ???

gruss thoms

Hallo Thomas!

Wie sieht denn Deine Abfrage aus?
Die WHERE-Bedingung sollte ungefähr so lauten:

WHERE Datum:=Date()-2 And Datum

hallo dirk,

danke fuer deine antwort auf meinen artikel.
mein abfragekriterium war schon richtig.
allerdings hab ich eine anderes problem. das whrscheinlich viel grundlegender ist.
ich weiss eigentlich gar nicht wie ich vorgehen soll, um die ausgewählten daten in den bericht zu bekommen.

ich beschreib das problem mal etws ausführlicher.

ich hab eine tabelle „projektstammdaten“, in der Projekte erfasst werden. für jedes Projekt gibt es 10 termine (mit tätigkeit und bearbeiter) die verfolgt werden müssen.
ich möchte einen bericht oder eine liste (kann auch excel oder textdatei sein), die dann ausschließlich die termin (mit tätigkeit und bearbeiter) enthält die in einem bestimmten zeitraum liegen.

was ich nicht weiss, ist wie ich ueberhaupt vorgehen soll.

mit makro, VBA, oder filter.

vielleicht kannst du mir nochmal einen hinweis geben.

gruss thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Thomas,

am einfachsten wird es wohl sein, wenn Du zunächst eine Abfrage auf die Tabelle(n) erstellst (da sollte die Datumseinschränkung allerdings noch nicht rein).
Danach erstellst Du einen Bericht der auf dieser Abfrage beruht.

Diesen Bericht kannst Du dann z.B. von einem Formular aufrufen. Das sieht dann ungefähr so aus:


Dim sQry As String
Dim x As String

x = Format(Date - 2, „dd.mm.yyyy“)
sQry = „Datum:= #“ & Mid(x, 4, 2) & „/“ & Left(x, 2) & „/“ & Right(x, 4) & „#“
x = Format(Date + 5, „dd.mm.yyyy“)
sQry = sQry & " AND Datum

x = Format(Date - 2, „dd.mm.yyyy“)
sQry = „Datum:= #“ & Mid(x, 4, 2) & „/“ &
Left(x, 2) & „/“ & Right(x, 4) & „#“
x = Format(Date + 5, „dd.mm.yyyy“)
sQry = sQry & " AND Datum