Seite 1 von 1
Aktuelles Datum setzen
Verfasst: Fr 20. Feb 2026, 17:05
von Maddog
Hallo Community,
Ich habe eine keine Datenbank angelegt. Ich möchte im Formular "Liste_Table1" wenn ich "Set" aktiviere im Feld Datum, das heutige Datum eingetragen wird. Wenn ich das "Set" wieder deaktiviere diese Datum wieder gelöscht wird.
LG Uwe
Re: Aktuelles Datum setzen
Verfasst: Fr 20. Feb 2026, 20:20
von RobertG
Das Setzen und wieder Entfernen wirst Du nur über Makros geregelt bekommen.
Schau einmal hier:
https://www.familiegrosskopf.de/robert/ ... _beispiele
Da sind Beispieldatenbanken mit dem Namen "Default_Datum_Zeit" zu finden. Dann sind auf der gleichen Liste auch Beschreibungen, scheinen mir aber nicht gerade so sehr geordnet zu sein. Da muss ich wohl noch einmal ran. Ich hänge deswegen ein Kapitel aus der Beschreibung einmal an.
Re: Aktuelles Datum setzen
Verfasst: Fr 20. Feb 2026, 22:14
von Maddog
Danke für deine Antwort. Da sind sehr gute Beispiele angeführt.
Hab mir mal ein Makro gebastelt und bei Kontrollfeld Set unter Ereignis: Status geändert eingefügt.
Code: Alles auswählen
Sub SetDatum(oEvent As Object)
Dim oForm As Object
Dim oDatumFeld As Object
oForm = oEvent.Source.Model.Parent
oDatumFeld = oForm.getByName("Datum")
If oEvent.Source.State = 1 Then
oDatumFeld.Date = Date
Else
oDatumFeld.Date = Null
End If
End Sub
funktioniert leider nicht.
Re: Aktuelles Datum setzen
Verfasst: Sa 21. Feb 2026, 08:21
von RobertG
Das, was Du da als oForm bezeichnest ist in Deinem Beispiel das Tabellenkontrollfeld, nicht das Formular.
Du brauchst, um das Datumsfeld zu befüllen, ein Struct. Das legt Jahr, Monat und Tag fest.
Code: Alles auswählen
unoDate = createUnoStruct("com.sun.star.util.Date")
unoDate.Year = Year(Date)
unoDate.Month = Month(Date)
unoDate.Day = Day(Date)
oDatumFeld.BoundField.updateDate(unoDate)
Und das Setzen auf NULL:
Re: Aktuelles Datum setzen
Verfasst: Sa 21. Feb 2026, 11:08
von Maddog
Danke Robert
Habe mir mal deine Beispiele angesehen. Fürchte ich muß noch viel lernen.
So funktioniert das schonmal mit SQL
Code: Alles auswählen
UPDATE "Table1"
SET "Datum" = CURRENT_DATE
WHERE "Set" = TRUE;
Könntest du mir vielleicht meine Datenbank bearbeiten so es funktioniert?
Re: Aktuelles Datum setzen
Verfasst: Sa 21. Feb 2026, 11:58
von RobertG
Ich habe das einmal anhand Deines Makros mit meinen Ergänzungen eingebaut.
Re: Aktuelles Datum setzen
Verfasst: Sa 21. Feb 2026, 12:56
von Maddog
Danke Robert
Funktioniert wunderbar. Mit deiner Lösung kann ich viele weitere Probleme lösen.
Bin dir für deine Hilfe sehr dankbar