OpenOffice.info

[quote="MartinK"] warum das nciht funktioniert und was ich machen muss, damit es funktioniert.[/quote]

Das kann Dir keiner sagen, wenn Du nicht ein Beispieldokument zur Verfügung stellst (für Dateianhänge musst Du angemeldet sein).

Die [color=#008000]ThisComponent[/color]-Zeile funktioniert bei mir, in einem Formular einer BASE-(interne HSQLDB) Datei - gestern abend extra für Dich getestet.

oFeld = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" ).Text
PDFname = "P:\xyz\"+"ID"+oFeld+".pdf"
Shell("C:\Programme\Adobe\Reader 10.0\Reader\AcroRd32.exe", 2 , PDFname)

[quote="MartinK"]ich habe eigentlich damit gerechnet, dass das nur so ein zwei zeilen im programm werden[/quote]
Es sind im Prinizp nur die drei Zeilen, die Du oben gepostet hast.

[code]oFeld = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" ).Text
PDFname = "P:\xyz\"+"ID"+oFeld+".pdf"
Shell("C:\Programme\Adobe\Reader 10.0\Reader\AcroRd32.exe", 2 , PDFname)[/code]

[quote="MartinK"]Ich wollte doch eigentlich nur einen Button im Formular, der eine PDF-Datei öffnet[/quote]
Das macht Dein Betriebssystem, wenn Du in dem Datenordner auf das PDF-Symbol klickst.

Du willst aber den Pfad aus einer Datenbank auslesen, in einem Textfeld darstellen und dann draufklicken können...
Da das nicht eingebaut ist - musst Du es selbst programmieren.

If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "XrayTool" ) Then
	GlobalScope.BasicLibraries.loadLibrary( "XrayTool" ) 
End if

xray ThisComponent
xray ThisComponent.Drawpage
xray ThisComponent.Drawpage.Forms()
xray ThisComponent.Drawpage.Forms().getByIndex( 0 )
xray ThisComponent.Drawpage.Forms().getByIndex( 0 ).ElementNames
xray ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" )

[quote="MartinK"]Woran könnte das liegen?[/quote]

Falsches "aktives" Dokument?
Kein Writer-Formular?
Feld nicht im ersten Formular?


Besorge Dir [url=http://bernard.marcelly.perso.sfr.fr/index2.html]XRAY[/url], installiere es, lade es (einmal pro OO-Sitzung über die Basic-IDE öffnen), oder zu Beginn einer DEBUG-Sitzung laden
[code]If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "XrayTool" ) Then
GlobalScope.BasicLibraries.loadLibrary( "XrayTool" )
End if[/code]


und dann probiere, was Du erhälst
[code]xray ThisComponent
xray ThisComponent.Drawpage
xray ThisComponent.Drawpage.Forms()
xray ThisComponent.Drawpage.Forms().getByIndex( 0 )
xray ThisComponent.Drawpage.Forms().getByIndex( 0 ).ElementNames
xray ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" )[/code]


Viel Erfolg!

' Makro in STANDARD-Bibliothek der ODB, aufgerufen vom Formular
oFeld = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" ).Text

[quote="MartinK"]Ich habe mir vorerst ein Formular gebastelt, welches den Inhalt einer vorher erstellten Tabelle anzeigt.[...]
Hier kommt leider immer die Fehlermeldung "Objektvariable nicht belegt"[/quote]

Du hast das Objekt nicht belegt.

Wenn es tatsächlich ein Formular einer BASE-Datenbank ist, dann geht das so:

[code]' Makro in STANDARD-Bibliothek der ODB, aufgerufen vom Formular
oFeld = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "frmID" ).Text[/code]


[quote="MartinK"]bin leider noch einsteiger in oO Base [/quote]
Besorge Dir mal [url=http://www.pitonyak.org]Andrews Datenbank-Dokument[/url] von seiner Webseite, da steht schon einiges drin.


Viel Erfolg!