Textfeld per Button beschreiben

[debian]

Sorry für die einfache Frage, aber ich will jetzt nicht extra ein Tutorial lesen und surf schon ne Weile ....

Wie kann ich das aktuelle Datum in ein bekanntes Datums-Textfeld setzen?
Ich dachte an sowas, kann aber die korrekte Syntax nicht finden:

document.tabelle1.text_datum.value= "Datum: " & date

Danke!

[F3K Total]

Hallo,
was genau meinst du mit Textfeld?

• Ein herkömmliches Textfeld? Dann ist wichtig zu wissen ob in Calc, Writer, Draw, Impress, Base:

  

  txt.png (1.3 KiB) 6601 mal betrachtet

• Die Zelle einer Tabelle in Calc?
• Ein Textkontrollfeld auf einem Formular (in Calc, Writer, Draw, Impress, Base)?

Gruß R

[debian]

Ich meine ein Textfeld aus den Steuerelementen mit dem Namen "text_datum".
Und das ganze soll in Calc geschehen.

[Frieder]

Hallo debian

Das geht nur dann per makro, wenn während das Makro läuft , auch die Tabelle im Vordergrund ist, auf der das Datumsfeld ist.

Hier der Code:

Code: Alles auswählen

oSheet1=ThisComponent.Sheets(0) 'erste Tabelle
oDatefild = ThisComponent.CurrentController.getControl(oSheet1.DrawPage.Forms(0).getByName("text_datum"))

'Ein datum einfügen, falls es ein echtes Textfeld ist
oDatefild.setText("01.02.2012")
'das aktuelle Datum einfügen falls es ein echtes Datumsfeld ist
oDatefild.setDate(CDateToIso(now))

Weitere Informationen erhälst du hier:
http://www.starbasicfaq.de/Formulare.html#Zweig86

Gruß Frieder

[F3K Total]

Das geht nur dann per makro ...

Hi, dem kann ich nicht ganz zustimmen:
Wenn Du in Zelle A1, die folgende Formal schreibst

Code: Alles auswählen

="Datum: "&TEXT(HEUTE();"TT.MM.JJJJ")

und dann dem Textfeld im Entwurfsmodus, Reiter Daten, A1 als verknüpfte Zelle zuordnest, geht es auch.
Dieses Datum ändert sich aber mit einem neuen Aufruf des Dokumentes an einem anderen Tag. Ist wohl nicht, was Du möchtest?
Per Makro hätte ich noch diese Variante, die geht auch, wenn das Blatt nicht im Vordergrund ist.

Code: Alles auswählen

Sub s_set_date
osheet = thiscomponent.sheets.getbyname("Tabelle1")
oform = osheet.drawpage.forms.getbyname("Formular")'Standardname, falls nicht umbenannt
otxtdate = oform.getbyname("text_datum")
otxtdate.Text = "Datum: "& date
End Sub

Viel Erfolg
Gruß R

[debian]

Olalah!
Sehr vielen Dank, das hat mich schon länger geärgert.