Hallo,
ich habe eine Abfrage namens MyQuery, und in dieser werden die Felder "Name" (String) und "EingabeDatum" (Datum) abgefragt und ausgegeben.
Nun habe ich in der Abfrage mittels Abfrage - Entwurfsansicht zusätzlich zwei Kriterien für das Feld EingabeDatum angegeben: >=[Start Date:] Und <=[End Date:]
Soweit läuft alles ganz gut, wenn ich die Abfrage starte, werde ich nacheinander nach "Start Date: " und "End Date: " gefragt, und sobald ich diese eintippe erhalte ich alle Datensätze deren Eingabedatum in diesem Bereich liegt.
Zusätzlich habe ich für MyQuery einen Bericht erstellt, der mir das Resultat optisch aufhübscht. Das heißt wenn ich den Bericht "MyQuery" aufrufe, werde ich ebenfalls nach den Parametern "Start Date" und "End Date" gefragt bevor er generiert wird.
Nun also zu meinem Problem: Ich habe ein Formular gebastelt, in dem es zwei Date Time Picker gibt (um je ein Datum festzulegen) und einen "Generate" Button. Beim Klick auf den Button sollen die Zeit-Daten an den Bericht übergeben werden, damit die Parameter - PopUps für Start / End Date nicht mehr auftauchen und direkt ein Bericht generiert wird.
Folgender VBA Code hat leider nicht funktioniert:
...
Dim startDate As String
Dim endDate As String
startDate = dtp_startDate.Value
endDate = dtp_endDate.Value
DoCmd.OpenReport "MyQuery", acViewReport, , "[EingabeDatum] Between " & Format(startDate, "\#mm\/dd\/yyyy\#") & " And " & Format(endDate, "\#mm\/dd\/yyyy\#")
...
Leider wird so immer noch nach den beiden Parametern gefragt.
Hätte vielleicht jemand einen Tipp?
Vielen vielen Dank
Hallo,
entferne die Kriterien-Parameter aus der Abfrage...
sodann:
...
Dim startDate As Date
Dim endDate As Date
startDate = Me!dtp_startDate
endDate = Me!dtp_endDate
DoCmd.OpenReport "MyQuery", acViewPreview, , "[EingabeDatum] Between " & Format(startDate, "\#mm\/dd\/yyyy\#") & " And " & Format(endDate, "\#mm\/dd\/yyyy\#")
Hallo,
vielen Dank für die Antwort, ich probiere das heute Abend aus und gebe Bescheid wie / ob es geklappt hat.
Viele Grüße!
Du bist genial!!
Hat super geklappt!
Vielen vielen Dank.