OpenOffice.info

miguel hat geschrieben:Ich weiß nur nicht, wie man ihn kontaktieren könnte...

http://lmgtfy.com/?q=%22Thomas+Krumbein ... dation.org

Gruß
lorbass

Hallo M.Z,

vielen Dank für Deine Hilfe. Das hat geklappt!
Allerdings ist noch ein Fehler in den Makros gewesen, nämlich in der Routine An- und Ausschalten der Toolbars. Diese habe ich einfach gelöscht.
Jetzt funktioniert es!

Hab herzlichen Dank für die Hilfe. Das würde aber bedeuten, dass hier ein Fehler in dem Buch abgedruckt ist. Man sollte das vielleicht irgendwie Thomas Krumbein wissen lassen. Ich weiß nur nicht, wie man ihn kontaktieren könnte...

Beste Grüße,

Miguel.

Gibt es die Eigenschaft Label?
Probiers mal mit .text statt .label:

REM Textfelder auffüllen mit aktuellen Daten
sub Textfelder_definieren
DIM sText1 as string, sText2 as string
sText1 = aTexte(1)
if (hour(now()) > 4) And (hour(now()) < 11) then sText1 = aTexte(0)
if (hour(now()) > 18) And (hour(now()) < 24) then sText1 = aTexte(2)
oForm1.getbyName("Text1").text= sText1

sText2 = " Heute ist " & aWday(weekday(now())-1) & ", der " & _
Day(Now()) &". " & aMonate(Month(Now())-1) & _
" " & Year(now()) & chr(13) & "Dies ist der " & _
CInt(cDate(now()) - dateSerial(Year(now()), 1,1)) & ". Tag im Jahr"

oForm1.getbyName("Text2").text = sText2

end sub


Unter Extras->Anpassen kannst du Makros automatisch direkt nach dem Laden der Seite ausführen lassen.

Hallo,
um in das Arbeiten mit Makros einzusteigen, habe ich versucht aus dem Buch "Datenbanken mit OpenOffice.org 3 Base & HSQLDB" von Thomas Krumbein (Bonn 2009) das Beispiel mit der Erinnerungsfunktion für Geburtstage, siehe in dem Buch Seite 491 ff. Kapitel 9 Praktische Anwendungen, auf meine Adressendatenbank anzuwenden.
Bis zu den Abfragen innerhalb der Datenbank hat alles wunderbar geklappt.
Die Programmierung hingegen in einem Writer-Dokument kommt zu folgender Fehlermeldung:

BASIC Laufzeitfehler
Eigenschaft oder Methode nicht gefunden

Dabei wird folgende Zeile angemahnt:
oForm1.getbyName("Text1").label = sText1

in folgendem Makro:
REM Textfelder auffüllen mit aktuellen Daten
sub Textfelder_definieren
DIM sText1 as string, sText2 as string
sText1 = aTexte(1)
if (hour(now()) > 4) And (hour(now()) < 11) then sText1 = aTexte(0)
if (hour(now()) > 18) And (hour(now()) < 24) then sText1 = aTexte(2)
oForm1.getbyName("Text1").label = sText1

sText2 = " Heute ist " & aWday(weekday(now())-1) & ", der " & _
Day(Now()) &". " & aMonate(Month(Now())-1) & _
" " & Year(now()) & chr(13) & "Dies ist der " & _
CInt(cDate(now()) - dateSerial(Year(now()), 1,1)) & ". Tag im Jahr"

oForm1.getbyName("Text2").label = sText2

end sub

Es ist übrigens auch so, dass das Makro nicht beim Öffnen des Writer-Dokuments automatisch anläuft, sondern ich muss es von Hand starten.
Da läuft also einiges schief...
Könnte das vielleicht damit zusammenhängen, dass ich mit einem Macintosh-Computer arbeite mit dem Betriebssystem: Mac OS X, Version 10.6.2 ?

Außerdem bin ich mir nicht sicher, ob ich das mit der "Bindung der jeweiligen Programme an Buttons oder Ereignisse" (s. in dem genannten Buch S. 523) richtig gemacht habe, da das auf dem Mac nicht ganz so funktioniert wie dort angegeben.

Ich habe aber nochmal kontrolliert, ob auch alle Namen richtig benannt wurden wie z. B. die Felder Text1 und Text2. Das wäre m. E. richtig.

Falls mir hier jemand weiterhelfen könnte, wäre ich ausgesprochen dankbar!

Beste Grüße,
Miguel.