FindFirst mit 2 Kriterien und Datum

[dan21]

Moin,
ich möchte überprüfen, ob es einen Datensatz schon gibt. Dazu hab ich folgenden Code verwendet:

Code [Auswählen] Erweitern

Dim datenbank As dao.Database
Dim rs As dao.Recordset  'DAO3.6 Lib- Verweis setzen
Dim dtTemp As Date
Set datenbank = CurrentDb
Set rs = datenbank.OpenRecordset("tabIstArbeit", dbOpenDynaset)
dtTemp = Me.von
rs.FindFirst ("Tag = #" & dtTemp & " # AND Plandatensatz = " & Me.ID)
If Not rs.NoMatch Then
  rs.AddNew
End If
rs.Close
Set rs = Nothing

Ich hab es schon mit und ohne # versucht, ich komme einfach nicht weiter. Was ist an der Abfrage falsch?
Me.von ist ein Textfeld, mit Kalendersteuerelement und Format "Datum, kurz", wen das hilft.

Danke

[database]

Hallo,

vielleicht hilft dir dieser Hinweis weiter:

www.donkarl.com?FAQ6.8

...ich denke es wird am Datum liegen.

HTH

Peter

[oma]

Hallo,

rs.FindFirst "Plandatensatz=" & Me!ID & " AND Tag = " & Format(Me!von, "\#yyyy-mm-dd\#")


Gruß Oma

[dan21]

danke, so klappt es.

[dan21]

Ich hänge das nochmal hieran.
Ich will nun in einem Unterformular den Filter setzen, damit nur Daten aus einem bestimmten Zeitraum angezeigt werden.
Leider klapt die Funktion erst beim zweiten Klicken auf den Button. Woran könnte das liegen?

PS. Zweimal Klicken ist nur bei der ersten Filterung nötig. Wenn ich den Zeitraum nur ändere, dann genügt ein Klick.

Code [Auswählen] Erweitern

frmIst_Details.Requery
Me.frmIst_Details.Form.FilterOn = True
Me.frmIst_Details.Form.Filter = "Tag BETWEEN " & Format(Me.von, "\#yyyy-mm-dd\#") & " AND " & Format(Me.bis, "\#yyyy-mm-dd\#")
frmIst_Details.Requery

[database]

Hallo,

versuche mal die beiden Filter-Zeilen zu vertauschen.

1. Filter deklarieren
2. FilterOn = True

Du müsstest eigentlich ohne Requery auskommen

HTH

Peter

[oma]

Hallo,

geht auch in der Reihenfolge und ohne requery:

Me!frmIst_Details.FilterOn = True
Me!frmIst_Details.Filter = "Tag BETWEEN " & Format(Me!Von, "\#yyyy-mm-dd\#") & " AND " & Format(Me!Bis, "\#yyyy-mm-dd\#")


Gruß Oma

[database]

Hallo,

@oma

ist der Filter auf ein Unterformular nicht mit Hauptform!Unterform.Form.Filter zu setzen ?

[oma]

Hallo,

sorry, das kommt immer von kopieren und einsetzen:

Code [Auswählen] Erweitern

Me!frmIst_Details.Form.Filter = "Tag BETWEEN " & Format(Me!Von, "\#yyyy-mm-dd\#") & " AND " & Format(Me!Bis, "\#yyyy-mm-dd\#")
Me!frmIst_Details.Form.FilterOn = True

Gruß Oma