Summe zu einem bestimmten Tag

[X-Ray1978]

Hallo liebe Accesser,

ich habe eine Tabelle, die folgende Daten beinhaltet:

Bezeichnung
Startdatum
Enddatum
Anzahl

Die Werte werden in einem Formular eingegeben.

Jetzt möchte ich in ein unabhängiges Feld ein Datum eintragen.
Anschließend soll der Datensatz gefiltert werden, welche "Bezeichnungen" vom
Start- und Enddatum her in zu diesem Datum vorhanden sind und
in ein anderes Feld soll die Summe von Anzahl sein.

Wie kann ich das bewerkstelligen.

Beste Grüße
Christian

[oma]

Hallo Christian,

in ein Formular im Formularkopf ein ungebundenes Feld mit Namen Suchdatum,
dann  für Ereignis Nach Aktualisierung folgender Code

Code [Auswählen] Erweitern

Private Sub SuchDatum_AfterUpdate()
Dim strFilter As String

If Not IsNull(Me!SuchDatum) Then
    strFilter = "StartDatum <= " & Format(Me!SuchDatum, "\#yyyy-mm-dd\#") _
    & " AND EndDatum >= " & Format(Me!SuchDatum, "\#yyyy-mm-dd\#")

    Me.Filter = strFilter
    Me.FilterOn = True
End If
End Sub

Im  Formularfuß ebenfalls ein ungebundenes Feld mit   =Summe([Anz])
(Feld mit Anzahl heißt Anz und nicht Anzahl!)

Gruß Oma

[X-Ray1978]

PERFEKT !!! 

Vielen Vielen Dank !!!