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.