Hallo Leute,
ich habe ein geteiltes Formular, welches beim öffnen zum aktuellen Datum springt, leider aber nur im oberen Bereich. Der untere Bereich (Endlosformular) muss erst über ein Klick mit der Maus im oberen Bereich angesprochen warden. Gibt es eine Möglichkeit, daß beide Bereiche sofort zum aktuellen Datum springen oder funktioniert das nicht im geteilten Formular?
Hier noch mein Code.:
Private Sub Form_Open(Cancel As Integer)
Dim heute
heute = "Bereitstellungsdatum = #" & Format(Now(), "mm-dd-yyyy") & "#"
Me.Recordset.FindFirst heute
End Sub
Danke im Voraus für Euren Support.
Rene
Hallo,
Private Sub Form_Open(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Bereitstellungsdatum] = Date()"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Du benötist dazu das Recorset des Formulars. Now beinhaltet auch die Uhrzeit und ist daher für den Datumsvergleich ungeeignet. Außerdem ist die Formatierung überflüssig, Date() kann direkt verwendet werden.
Ob das jetzt im geteilten Formular funktioniert, musst Du probieren.
Ich vermute, dass das Beim Öffnen Ereignis zu früh ist. Verwende das Beim Laden Ereignis des Formulars, wobei der Bezug auf das Recorset des Formulars schon OK ist - im schlimmsten Fall wird kein Datensatz gefunden und der Datensatzzeiger steht weiterhin auf dem ersten oder auf einem neuen Datensatz.