Hallo,
ich brauche ein wenig Hilfe bei einer Datenbank.
Ich bin Diabetiker und habe mir eine Datenbank angelegt in der ich u.a. meine Blutzuckerwerte in einer Tabelle verwalte. In dieser Tabelle soll eine Parameterabfrage mir sämtliche Daten ab einem Datum ausgeben. Das Datum soll das Kriterium der Parameterabfrage sein und alle Einträge von da an bis zum letzten eingetragenen Datensatz ausgeben.
Mit dieser Abfrage soll ein Bericht erstellt werden den ich ausdrucken und mit zum Arzt nehmen kann.
Gruß uhligen
Um Dir besser zu helfen, brauchen wir den Namen der Tabelle und den Namen des Feldes, in dem das Datum steht, sowie den Namen des Berichts.
Ich nehme folgendes an: Tabellenname "tbl_Blutzuckerwerte", Name des Datumsfeldes: "Datum", Name des Berichts: "rptBlutzuckerwerte"
Grundsätzlich geht das so:
Du erstellst eine neue Abfrage über die gewünschten Felder der entsprechenden Tabelle, dann gibst Du als Kriterium ein:
[Datum]=[Bitte Datum eingeben]
Auf Basis dieser Abfrage erstellst Du dann den Bericht.
Der Effekt ist dann der: Du startest den Bericht, dann erfolgt die Abfrage des Datums, nach der Eingabe erscheint der Bericht.
Es geht auch schöner:
Du erstellst den Bericht erstmal über die Tabelle tbl_Blutzuckerwerte. Name des Berichts: "rptBlutzuckerwerte"
Dazu erstellst ein Formular, das Formular ist ungebunden, also mit keiner Tabelle oder Abfrage verknüpft.
Auf dem Formular setzt Du ein Textfeld zur Erfassung des Datums, Name des Feldes: StartDatum.
Jetzt eine Schaltfläche namens "btnBericht" dazu, um den Bericht aufzurufen, den Du den Bericht aufrufst.
Und jetzt der Trick: Der Inhalt des Feldes StartDatum wird an den Bericht als Filter übergeben!
Dazu musst Du den folgenden VBA-Code benutzen. (oder dengenerierten leicht abändern)
Private Sub btnBericht_Click()
On Error GoTo Err_btnBericht_Click
Dim stDocName As String
Dim strDatum as string
Dim datDatum as date
datDatum = Me!StartDatum
' Umwandeln des Datums in SQL-kompatibles Format
strDatum = Format(CDate(datDatum), "\#mm\/dd\/yyyy\#")
stDocName = "rptBlutzuckerwerte"
DoCmd.OpenReport stDocName, acPreview, ,"[Datum]>=" & strDatum
Exit_btnBericht_Click:
Exit Sub
Err_btnBericht_Click:
MsgBox Err.Description
Resume Exit_btnBericht_Click
End Sub
Hallo Shai,
erst mal Danke für die schnelle Antwort.
In der Abfrage bekomme ich nun eine Ausgabe von den Werten des Datums, das ich zuvor eingegeben habe. Wie bekomme ich die Werte "ab diesem Datum" in der Abfrage angezeigt?
Ich hab noch etwas rumprobiert aber komme nicht zu dem Ergebnis das ich haben will.
Gruß uhligen
Mein Fehler! Das Kriterium muss lauten:
[Datum]>=[Bitte Datum eingeben]
Hallo Shai,
das Problem ist gelöst.
Vielen Dank für Deine Hilfe.
Gruß uhligen