Robert Großkopf schrieb:
Hallo Richard,
Hallo Robert,
Danke für deine Hilfe. Leider wird das Makro nicht bis dahin
abgearbeitet. Bereits in der Zeile
oForm=thisComponent.drawpage.forms.getByName("IstBestand")
des Makros bleibt der Debuger stehen und gibt die obige Fehlermeldung
aus. Ich habe aus dem Formularnamen den Unterstrich rausgenommen, aber
das Ergebnis ist das gleiche. Auch die Änderung drawpage in basepage
brachte nichts anderes. Ich bin für jede Anregung dankbar, weil auch
Fehleingaben dadurch vermieden werden und genauere Aussagen möglich
sind. Danke im Voraus

Ich bin davon ausgegangen, dass diese Verkürzung möglich ist. Bei mir mit Erfolg getestet ist die folgende Variante:

SUB Jetzt
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM d AS DOUBLE
DIM oFeld AS OBJECT
oDoc=thisComponent
oDrawpage=oDoc.drawpage
oForm=oDrawpage.forms.getByName("IstBestand")
oFeld=oForm.getByName("um")
d = now()
oFeld.BoundField.updateDouble(d)
END SUB

Vielleicht kommen aber auch beim Einlesen aus dem Mailprogramm Fehler dazu (andere Interpretation von Leerzeichen ...)
Das Feld "um" ist als formatiertes Feld mit dem entsprechenden Datums-Zeit-
Format versehen.

Gruß

Robert
Hallo Robert
Danke für die schnelle Hilfe.
In dem Formular "IstBestand" habe ich das Ereignis 'wen Fokus erhalten' mit dem Makro verknüpft. Wenn ich den Kursor in das Feld "um" setze läuft das Makro bis zur Zeile: oForm=oDrawwpage.forms.getByName("IstBestand") An dieser Zeile im Debuger kommt diese Fehlermeldung: "BASIC-Laufzeitfehler. Es ist eine Exception aufgetreten Typ: com.sun.star.container.NoSuchElementExceptionMessage:." das Feld "um" hat das Format [TIMESTAMPS]. Meine OOo- version ist 3.11. Kann es eventuell an Vista liegen, das Formular nicht anzusprechen ist?

--
Einen Gruß aus dem Weide- und Wanderparadies Allrode/Harz sendet Richard

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org

Antwort per Email an