Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: mile85 am Januar 18, 2017, 18:40:03

Titel: Datensätze je nach Datum ausblenden
Beitrag von: mile85 am Januar 18, 2017, 18:40:03
Hallo

Ich bräuchte mal wieder Hilfe :)

Ich habe ein Bericht der beim öffnen mir nur die Datensätze anzeigt, deren Datumsfeld +2 Tage ab dem aktuellen Datum ist, anzeigt.
Hat wer eine Idee?:)

Danke in Voraus
Titel: Re: Datensätze je nach Datum ausblenden
Beitrag von: HB9876 am Januar 18, 2017, 19:31:39
Hallo,
du hast, oder moechtest so einen Bericht?

Im generellen sollte es in der zugrunde liegenden Abfrage geregelt werden.

Gruss
Jens
Titel: Re: Datensätze je nach Datum ausblenden
Beitrag von: mile85 am Januar 18, 2017, 19:40:58
Ich möchte es :). Genau sollte per Abfrage geregelt sein, sodass er mir beim öffnen nur die Datensätze anzeigt, deren Datumsfeld 2 Tage + vom aktuellen Datum liegen. Sprich wenn heute der 18.1.2017 ist und ich es aufmache dann sollten nur Datensätze mit dem Datum ab dem 20.01.2017 sind angezeigt werden. Wie lautet den so eine Datumsabfrage?
Titel: Re: Datensätze je nach Datum ausblenden
Beitrag von: HB9876 am Januar 18, 2017, 19:44:19
Bei deinem Datumsfeld in der Abfrage:
date()
ist fuer das aktuelle Datum.
Weill du zwei Tahe vor moechtest dann:
date()+2

Gruss
Titel: Re: Datensätze je nach Datum ausblenden
Beitrag von: Joss am Januar 20, 2017, 13:37:22
Hallo mile85,

hier noch eine andere Variante, ohne die Abfrage zu verändern.
DoCmd.OpenReport "Bestellungen", acViewPreview, , "Bestelldatum >= " & CDateSQL(Date + 2)

Aus Bequemlichkeitsgründen habe ich die Funktion CDateSQL() aus dem DBWiki verwendet.
http://dbwiki.net/wiki/VBA_Tipp:_Datum_ins_VBA-Datumsformat_(SQL-Format)_umwandeln (http://dbwiki.net/wiki/VBA_Tipp:_Datum_ins_VBA-Datumsformat_(SQL-Format)_umwandeln)

Gruß
Josef
Titel: Re: Datensätze je nach Datum ausblenden
Beitrag von: ebs17 am Januar 20, 2017, 13:56:07
Aus Bequemlichkeit könnte man bei Date() eine Formatierung ganz weglassen, da die Jet-Engine Funktionen ohne Argumente von außen direkt auflösen kann:
DoCmd.OpenReport "Bestellungen", acViewPreview, , _
     "Bestelldatum >= Date() + 2"