Hallo Liste,
ich würde gern in einem Base-Formular ein Datumsfeldmit dem aktuellen
Datum füllen und nutze dazu folgenden Code:
Sub Datum_schreiben()
Dim oCtrl as Object
Dim oDoc as Object
Dim oForm as Object
oDoc = StarDesktop.CurrentComponent
oForm = oDoc.Drawpage.Forms(frm_Eingabe)
Hallo Ulrich,
der Zugriff CDateToIso(Date) funktioniert bei updateDate nicht. Basic
erwartet dort ein Objekt. Folgender Code bringt ein komplettes Datum
richtig ein:
SUB Datum_aktuell
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM unoDate