Filter für Formular

23/05/2015 - 12:04 von Wolfgang Weitzel | Report spam
Hallo,
ich möchte die Daten für ein Formular filtern. Mein Problem ist, das die Datenerfassung für eine Anlage unregelmàßig erfolgt. Jàhrlich wird eine Gesamtbilanz erhoben. Der Termin der Gesamtbilanz variiert aber um bis zu sechs Wochen.
Die Erfassungstage werden über ein Datumfeld geordnet. Die jàhrlichen Bilanztage werden durch ein logisches Feld kenntlich gemacht.
Im Formularkopf habe ich ein Kombifeld mit Jahreszahlen. Wàhle ich darin 2014 aus, sollen im Formular die Daten ab dem ersten Datensatz nach dem Bilanztag 2013 bis zum Bilanztag 2014 angezeigt werde.
Wie kann erstelle ich einen Filter für das Formular, der diesen Sachverhalt berücksichtigt.
Die Tabelle Anlage hat die Felder ID, Ablesetag, Datum, Messwert.
Ich benutze Access 2013 unter Win7 pro.

MfG
Wolfgang
 

Lesen sie die antworten

#1 HR Ernst
23/05/2015 - 12:52 | Warnen spam
Am Sat, 23 May 2015 03:04:46 -0700 (PDT) schrieb Wolfgang Weitzel:

Hallo,
ich möchte die Daten für ein Formular filtern. Mein Problem ist, das die Datenerfassung für eine Anlage unregelmàßig erfolgt. Jàhrlich wird eine Gesamtbilanz erhoben. Der Termin der Gesamtbilanz variiert aber um bis zu sechs Wochen.
Die Erfassungstage werden über ein Datumfeld geordnet. Die jàhrlichen Bilanztage werden durch ein logisches Feld kenntlich gemacht.
Im Formularkopf habe ich ein Kombifeld mit Jahreszahlen. Wàhle ich darin 2014 aus, sollen im Formular die Daten ab dem ersten Datensatz nach dem Bilanztag 2013 bis zum Bilanztag 2014 angezeigt werde.
Wie kann erstelle ich einen Filter für das Formular, der diesen Sachverhalt berücksichtigt.
Die Tabelle Anlage hat die Felder ID, Ablesetag, Datum, Messwert.
Ich benutze Access 2013 unter Win7 pro.

MfG
Wolfgang



Ich als Laie mache so etwas mit einer Abfrage (>= und <) und Berichten,
die auf den Abfragen beruhen. Im Formular habe ich in einem ungebundenen
(?)-Feld, das z.B. deine "2013" und "2014" enthàlt, die über den
VBA-Befehl

Private Sub Berichte_Click()

'Berichte'
If Me!Berichte = "2013" Then
DoCmd.OpenReport "2013", acViewPreview
RunCommand acCmdFitToWindow
ElseIf Me!Berichte = "2014" Then
DoCmd.OpenReport "2014", acViewPreview
RunCommand acCmdFitToWindow
End If
End Sub

aufgerufen werden.

Gruß

H.-R. Ernst

Ähnliche fragen