Mit einem Makro auf ein Formular zugreifen

de-users
#1

Hi!
Ich plage mich heute mit einem seltsamen Problem herum. Ich versuche per
Makro auf ein Base-Formular zuzugreifen. Eigentlich nichts
kompliziertes.

Sub fill
Dim oDoc as object
Dim oDrawPage as object
Dim oForm as object

oDoc = ThisComponent
oDrawPage = oDoc.DrawPage
oForm = oDrawpage.Forms.getByName("frm_anw")
' usw...
End Sub

Doch wenn ich den Makro ausführe bekomme ich folgende Fehlermeldung:
"Basic-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden:
DrawPage"
Auch das xray-tool das ich installiert habe zeigt mir keine DrawPage.
Ich bin mir aber eigentlich sicher das ich sonst immer auf diese Weise
auf Formulare zugegriffen habe. Wo liegt mein Fehler?

#2

Hallo Hermann,

Ich plage mich heute mit einem seltsamen Problem herum. Ich versuche per
Makro auf ein Base-Formular zuzugreifen. Eigentlich nichts
kompliziertes.

Sub fill
Dim oDoc as object
Dim oDrawPage as object
Dim oForm as object

oDoc = ThisComponent
oDrawPage = oDoc.DrawPage
oForm = oDrawpage.Forms.getByName("frm_anw")

hier natürlich
oForm = oDrawPage.Forms.getByName("frm_anw")

' usw...
End Sub

Doch wenn ich den Makro ausführe bekomme ich folgende Fehlermeldung:
"Basic-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden:
DrawPage"
Auch das xray-tool das ich installiert habe zeigt mir keine DrawPage.
Ich bin mir aber eigentlich sicher das ich sonst immer auf diese Weise
auf Formulare zugegriffen habe. Wo liegt mein Fehler?

Du kannst so nur das Formular finden, wenn es das aktuelle Dokument ist.
Du musst also das Makro aus dem Formular heraus starten. Darauf zielst
Du mit "ThisComponent". Ich vermute einfach, dass Du etwas anderes
möchtest, wenn auch xray den Weg nicht findet.

Gruß

Robert

#3

Hallo Robert

Du kannst so nur das Formular finden, wenn es das *aktuelle Dokument* ist.

Du musst also das Makro *aus dem Formular heraus starten.*

Genau das wars!

Ich hatte einfach auf den "Basic-Programm ausführen" Button in der
Entwicklungsumgebung gedrückt.

Danke für die schnelle Hilfe.