Hallo Jürgen, > Sub setFechaImporte > Dim oForm, oDate > oForm = ThisComponent.DrawPage.Forms.getByName("FormZahlen") > oDate = oForm.getByName("datDatum").Date > If oDate=0 Then > oForm.getByName("datDatum").Date = CDateToIso(date()) > > Else > MsgBox (oDate ) > end if > End Sub
Du schreibst das Datum nur als Ansicht auf den Bildschirm, nicht aber als Wert in das entsprechende Feld. Ich hab' jetzt auch einige Zeit daran rumprobiert, aber keinen Weg gefunden, wie das zu bewerkstelligen ist. Jedenfalls rührt sich vom Formular her nichts, um diesen angezeigten Wert auch zu speichern. Vermutlich müsste man dem Formular irgendwo mitgeben, dass in dem Feld ein neuer Wert ist. Das ist so ähnlich wie mit Javascript. Wenn ich in ein Formularfeld scriptgesteuert einen neuen Wert schreibe, so zieht der Eventhandler "onchange" nicht daraus den Schluss, dass sich etwas geändert hat. Dies passiert nur bei Tastatureingaben. Gruß Robert --------------------------------------------------------------------- To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org For additional commands, e-mail: users-h...@de.openoffice.org