Aus ACCESS Tabelle einen bestimmten Wert in ein Formular Textfeld laden?

Guten Tag, ich habe mal wieder eine Frage zu ACCESS.

Ich habe dort ein Formular, dieses Formular hat ein Textfeld in dem man ein Datum eingibt. Das Datum wurde bisher immer manuell eingegeben (immer das Datum, an dem das Formular das letzte mal aufgerufen wurde). Da es sehr umständlich ist, wollte ich das jetzt automatisch in das Textfeld laden.

Ich habe als erstes eine neue Tabelle angelegt mit dem Namen Zeitraum. In dieser befindet sich nur eine Spalte, nämlich Datum. zu dieser Spalte gibt es auch immer nur einen Eintrag, nämlich das aktuelle Datum. Dann habe ich einen Button am Formular angebracht, mit dem man dieses am Ende beenden soll. Klickt man darauf wird das Datum in der Tabelle aktualisier: (funktioniert)

    Dim db As DAO.Database
    Dim tb1 As DAO.Recordset

    Set db = CurrentDb
    Set tb1 = db.OpenRecordset("Zeitraum", dbOpenTable)
    If tb1.Updatable Then
        tb1.MoveFirst
        tb1.Edit
        tb1!Datum = Date
        tb1.Update
    End If
   
    tb1.Close
    db.Close
    Set tb1 = Nothing
    Set db = Nothing
       
    DoCmd.Save
    DoCmd.Quit

Nur wie bekomme ich jetzt das Datum in das Textfeld, jedesmal wenn ich das Formular neu öffne?

Ich habe beispielsweise schon versucht folgendes in das Textfeld zu schreiben

=[Zeitraum]![Datum]

Aber das ging nicht.

Ich hoffe mir kann jemand weiterhelfen oder mir einen Tipp geben.

Answer 1

[maximilianus7]

wie [Zeitraum]![Datum] ? solche ausdrücke kannst du auf der sprachebene (VBA) nicht verwenden, sondern nur innerhalb strings für funktionsparameter  oder in sql-ausdrücken. in deinem code hast du ja eigentlich alles schon:

Set db = CurrentDb
Set tb1 = db.OpenRecordset("Zeitraum", dbOpenTable)
formularfeld = tb1!Datum