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
Hallo Christian,
in ein Formular im Formularkopf ein ungebundenes Feld mit Namen Suchdatum,
dann für Ereignis Nach Aktualisierung folgender Code
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
PERFEKT !!! :o
Vielen Vielen Dank !!!