Hallo Ulrich,
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")
oCtrl = oForm.GetByName("txt_Datum_aktuell")
oCtrl.BoundField.updateDate(CdateToIso(Date))
end Sub
Leider bekomme ich eine sehr allgemeine Fehlermeldung:
"Basic-Laufzeitfehler: Objektvariable nicht belegt".
Da müsste dann eigentlich auch eine Markierung sein, an welcher Stelle
der Fehler auftritt ...
Für ein Base-Formular gilt
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("frm_Anzeige")
... vermutlich ist hier schon der Fehler mit "getByName"
Dann heißt das Feld "txt_Datum_aktuell". Das ist doch hoffentlich ein
Datumsfeld und kein Textfeld?
Gruß
Robert
--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
Context
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.