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 [email protected]
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
