Zum aktuellen Datum springen

[Claudia1]

Hallo zusammen,

ich bin eine völlige Anfängerin in Access und versuche mich gerade durchzukämpfen :-)

Ich starte ein Formular und in der ersten Spalte stehen Arbeitstage (01.01.2021 bis 31.12.2030).
Der Spaltenname lt. "Datum". Das Format ist dd.mm.yyyy (also bspw. 28.06.2021).
Da die Liste sehr lang ist, würde ich gerne beim Start in die Zeile des aktuellen Datums springen, so dass
ich nicht scrollen muss.

Ich habe diesen VBA Code gefunden:

Code [Auswählen] Erweitern

Me.Recordset.FindFirst "Datum= Date()"
Aber das funktioniert nicht. Kann mir jemand helfen?

Danke und Grüße
Claudia

[Beaker s.a.]

Hallo Claudia,

Aber das funktioniert nicht.

So, so ...
Und wie äussert sich das?

Code [Auswählen] Erweitern

Me.Recordset.FindFirst "Datum = " & Date()
gruss ekkehard


P.S.: zur Vertiefung

[Claudia1]

Hallo Beaker,

Danke für die schnelle Antwort.

Code [Auswählen] Erweitern

Private Sub Form_Open(Cancel As Integer)
Me.Recordset.FindFirst "Datum = " & Date
End Sub

Der Code erzeugt einen Laufzeitfehler 3077. "Synthaxfehler in Zahl in Ausdruck."
Wo kann der Fehler liegen?

[Maxel]

Du musst den vorgeschlagenen Code auch richtig abschreiben/kopieren.

Es sollte auch so gehen:

Code [Auswählen] Erweitern

Me.Recordset.FindFirst "Datum= Date"

[DF6GL]

Hallo,


stochern im Nebel und teils unzutreffende Vorschläge.

... in der ersten Spalte stehen Arbeitstage (01.01.2021 bis 31.12.2030).

Das sind keine Arbeitstage, das sind Datumsangaben. Und die müssen den Datentyp "Datum/Uhrzeit" haben, wenn man damit in der DB richtig umgehen will.

Unter der Voraussetzung, dass das Tabellenfeld "Datum" ( btw:  schlecht gewählter Name!) den Datentyp "Datum/Uhrzeit" besitzt (Formatierung spielt keine Rolle) und auch keinen Zeitanteil enthält, ist solches anzuwenden:


Me.Recordset.FindFirst "Datum = Date()"    (dies wurde anfänglich schon versucht, deshalb tippe ich auf einen Zeitanteil im Feld "Datum".)

oder
Me.Recordset.FindFirst "Datum = " & Format (Date,"\#yyyy-mm-dd\#")


Wenn ein Zeitanteil vorhanden ist, muss dieser berücksichtigt  werden:


Me.Recordset.FindFirst "Datum >= Date()  and Datum < Date()+1"



Die Klammern bei Date() sind zwingend in einem SQL-Statement, in VBA dagegen sind sie nicht erforderlich.