Aktuelles Datum setzen

[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

[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.

[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.

[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:

Code: Alles auswählen

oDatumFeld.BoundField.updateNull

[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?

[RobertG]

Ich habe das einmal anhand Deines Makros mit meinen Ergänzungen eingebaut.

[Maddog]

Danke Robert
Funktioniert wunderbar. Mit deiner Lösung kann ich viele weitere Probleme lösen.

Bin dir für deine Hilfe sehr dankbar