Formularnamen auslesen (aktives Formular

[Pcdirk91]

Hallo Euch,

grüble gerade über dem Problem wie ich den Namen des gerade aktiven Formulars auslesen kann. Komme einfach nicht drauf.
Sicher für Euch eine Leichtigkeit

[Pcdirk91]

Danke für Eure Hilfe habe die Lösung selber gefunden


Mühsam nährt sich das Eichhörnchen


Gruss Dirk

[lorbass]

Verätst du der Nachwelt die Lösung?

Gruß
lorbass

[Pcdirk91]

Hi Lorbas,


Sicher vielleicht ist es nicht die eleganteste Kösung aber so geht es :


Sub NameFormular

Dim oDoc, Drawpage, oForm as object
Dim NameFormular as string

oDoc=thisComponent
DrawPage=oDoc.drawPage
oForm=oDrawpage.forms.getByIndex(0)
NameFormular = oform.Name()

End Sub

Grus Dirk

[gogo]

das sucht immer nur das erste Formular aus der DB aus - wenn Du einen Button im Formular hast, den Du betätigst, dann bekommst Du den Namen des Formulars so:

Code: Alles auswählen

sub KlickAufDenButton(oEvent)
msgbox oEvent.Source.Model.Parent.Name
end sub

[Pcdirk91]

Hi,
Aksi ehrkich gesagt wollte ich das ha auch nur . Das Makroteil steuert ein Formular aus Schaltflächen soll eine Art Auswahl-Menü sein. Aber dennoch vielen Dank für den Hinweis


Gruss Dirk