OpenOffice.info

Hallo Michael,

vielen Dank für den Tipp, mit der Version 3.0.1 (Portable) funktioniert es auch nicht. Gleiche Fehlermeldung und gleiches Verhalten mit dem Kontrollfeld, das funktioniert. Wenn Unterformulare genau wie Kontrollfelder angesprochen werden können, hängt der Fehler meiner Meinung nach mit dem Controller zusammen.
Kann das jemand bestätigen? Oder mit welcher Version komme ich zum Ziel?

VG kuki

In der 3.1.0 ist die Funktion fehlerhaft. Bei allen Kontrollfeldern. Er soll(te) in der nächsten Version behoben sein. Vielleicht ist der Fehler noch nicht behoben.

mfg
Michael

Sub HideCtrlField
oDoc = ThisComponent
oView = oDoc.getCurrentController()
oForm = oDoc.DrawPage.Forms.GetByName("MainForm")
oSubForm = oForm.GetByName("Unterformular_K1")
msgbox "Unter-Formular = " & oSubForm.Name
vCtrl = oView.getControl(oSubForm)   '<--- hier kommt die Fehlermeldung! 
vCtrl.Visible = false
End Sub

Hallo Gemeinde,

nach Nächten der Suche und erfolglosem Probieren suche ich hier nach Hilfe. Nutze OO 3.1.1 Portable.
Habe in Base eine Kundenverwaltung erstellt, Dateneingabe über ein Formular mit 4 Unterformularen. Jedes Unterformular enthält Daten aus einer zugeordneten Tabelle. Ich möchte per Schaltfläche ein oder zwei Unterformulare "austauschen", z.B. Unterformular_K1 durch Unterformular_K2 ersetzten. Bei dem Schritt das Unterformular_K1 auszublenden bekomme ich allerdings eine Fehlermeldung:

> Basic Laufzeitfehler.
> Es ist eine Exception aufgetreten.
> Type: com.sun.star.lang.IllegalArgumentException
> Message: cannot coerce argument type during corereflection call!

Laut diesem Beitrag soll es gehen: http://de.openoffice.info/viewtopic.php?f=18&t=13127&p=52530&hilit=unterformular#p52530, vielleicht auch nur mit der Version 2.0.4??
Den Code habe ich bewusst so aus dem Beitrag übernommen.
[code]
Sub HideCtrlField
oDoc = ThisComponent
oView = oDoc.getCurrentController()
oForm = oDoc.DrawPage.Forms.GetByName("MainForm")
oSubForm = oForm.GetByName("Unterformular_K1")
msgbox "Unter-Formular = " & oSubForm.Name
vCtrl = oView.getControl(oSubForm) '<--- hier kommt die Fehlermeldung!
vCtrl.Visible = false
End Sub
[/code]

Wenn ich allerdings anstelle von "Unterformular_K1" ein beliebiges Eingabefeld auswähle, wird es wie gewünscht ausgeblendet/versteckt. Im Buch von Herrn Krumbein und auch bei Dannenhoefer wird behauptet, dass sich Unterformulare wie Kontrollfelder ansprechen lassen...

Wer kann helfen?
VG kuki