wie Unterformular erstellen?

[Blackcat]

Hallo,
nachdem ich keine Infos gefunden habe und aus dem Handbuch auch nicht schlau werde, frage ich mal.
Ich habe ein Formular und möchte darin ein Unterformular (später noch mehrere) erstellen.
Wie zum Henker geht das in LibreOffice 3.6.2.2 unter Windows? Vielleicht bin ich blind oder komme nicht drauf.
Kann es sein, das die deutschsprachigen PDF-Handbücher für eine andere Version sind?

Beste Grüße, Kerstin

[RobertG]

Hallo Kerstin,

die Handbücher wurden ursprünglich für die Version 3.3.4 erstellt. Dann wurden die Funktionen in der 3.5 überprüft. Prinzipiell ist gerade bei Base nichts neues seit diesen Versionen hinzugekommmen, was die Funktion selbst betrifft. Das gilt auch für die 3.6.

Ich weiß jetzt nicht, an welcher Stelle das Handbuches Du Schwierigkeiten hast. Eigentlich steht alles bereits im Kapitel "Hauptformular und Unterformular". Deswegen musst Du schon genauer werden.

Prinzipiell gilt: Hast Du ein Formular, dann rufe den Formularnavigator auf. Rechtsklick auf das Formular im Navigator → Neu → Formular. Damit hast Du ein Unterformular gegründet. Jetzt musst Du die betreffende Tabelle oder Abfrage suchen, dann die Verknüpfung erstellen und natürlich Felder in Dein Unterformular einbauen.

Bei Der Arbeit am Formular solltest Du immer den Formularnavigator geöffnet halten, da sonst bei mehreren Formularen unklar ist, zu welchem der Formulare Du gerade Felder hinzufügst.

Gruß

Robert

[Blackcat]

Hallo Robert,
vielen Dank für deine Antwort. So in der Art hab ich es auch aus dem Handbuch verstanden. Ich denke, bei mir klemmt es gerade an dem Begriff "Formularnavigator". Mit Base befasse ich mich erst seit ein paar Tagen und da hab ich sicher noch nicht alles durchschaut. Mir ist dieses Fenster mittlerweile halbwegs vertraut, da hab ich aber kein NEU. Falls der Navigator was anderes ist, bitte ich um einen Tipp, wie ich da hin komme.

Schöne Grüße, Kerstin

[RobertG]

Hallo Kerstin,

Dein Screenshot zeigt das Kontextmenü des Formulars. Von diesem Kontextmenü aus musst Du jetzt den Begriff "Bearbeiten" auswählen. Erst dann kannst Du am Formular etwas ändern.
Hast Du das Formular zum Bearbeiten geöffnet, so erscheint am unteren Fensterrand an 5. Position von links der Button für den Formularnavigator.

Wenn Du den erst einmal geöffnet hast wirst Du vermutlich ein Stück klarer sehen.

Gruß

Robert

[Blackcat]

Hallo Robert,
das mit dem Bearbeiten hatte ich schon durchschaut und das Hauptformular bearbeitet. Das klappt so weit.
An sich bin ich nicht so blond, aber diesen Button unten an 5. Position hab ich scheinbar nicht. Hab schon alles durchprobiert, unter Ansicht verschiedene Buttonleisten anzeigen lassen.
Ich hab hier mal noch einen Screenshot, wie das bei mir aussieht.

Grüße, Kerstin

[Blackcat]

Gefunden, der Button war nicht aktiviert. Nun ist er da
Unterformular ist eingebunden. Vielen Dank für die Starthilfe.

Nun habe ich noch ein Problem, was sich hoffentlich realisieren lässt.
Das Unterformular soll nur dann angezeigt werden, wenn im Hauptformular in einem Listenfeld ein bestimmter Wert ausgewählt ist. Anderenfalls soll das Unterformular ausgeblendet werden.
Ist es möglich das ganze Formular an diese Bedingung zu knüpfen, oder einzelne Felder des Unterformulars? Und wenn ja, wie?
Wenn dieses funktioniert, sollte erst mal alles komplizierte geschafft sein.

Beste Grüße, Kerstin

[RobertG]

Hallo Kerstin,

das Unterformular in Abhängigkeit von bestimmten Eingaben sichtbar zu schalten geht allerdings nur über Makros, ist also nicht einfach so irgendwo einzustellen.
Du musst also ein Makro über
Extras → Makros → Makros verwalten → LibreOffice Basic
in einem Modul erstellen.
Das zuerst gegründete
Sub Main
End Sub
kannst Du mit dem folgenden Code ersetzen.

Code: Alles auswählen

Sub SubFormular_unsichtbar
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oSubForm AS OBJECT
DIM oFeld1 AS OBJECT
DIM oFeld2 AS OBJECT
DIM oDocCrl AS OBJECT
DIM oCtlView AS OBJECT
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
oForm=oDrawpage.Forms.getByName("Formular")
oSubForm=oForm.getByName("SubFormular")
oFeld1=oSubForm.getByName("Feldname1")
oFeld2=oSubForm.getByName("Feldname2")
oDocCrl = ThisComponent.getCurrentController()
oCtlView = oDocCrl.GetControl(oFeld1)
oCtlView.Visible=false
oCtlView = oDocCrl.GetControl(oFeld2)
oCtlView.Visible=false
End Sub

In dem Makro werden zuerst alle Variablen festgelegt. Dann wird stückweise auf das Unterformular und die darin liegenden Felder zugegriffen. Jedes Feld einzeln muss unsichtbar geschaltet werden. Mit einem kompletten Formular geht so etwas, soweit ich das raus bekommen habe, nicht, da das Formular ja kein sichtbares Element ist.
Jetzt fehlt noch die Nachfrage, wann das Formular sichtbar geschaltet werden soll. Dazu wilsst Du auf ein Feld aus dem Formular zugreifen:

Code: Alles auswählen

oFeld = oForm.getByName("Listenfeld")
IF oFeld.getCurrentValue() = "anzeigen" THEN
oCtlView = oDocCrl.GetControl(oFeld1)
oCtlView.Visible=true
oCtlView = oDocCrl.GetControl(oFeld2)
oCtlView.Visible=true
ELSE
oCtlView = oDocCrl.GetControl(oFeld1)
oCtlView.Visible=false
oCtlView = oDocCrl.GetControl(oFeld2)
oCtlView.Visible=false
END IF

Du siehst also, für ein erstes Unterformular ein etwas größeres Projekt. Vor allem die Abfrage der Bedingung, wann denn nun das Unterformular anzuzeigen ist, dürfte wohl Probleme machen.
Das Ganze musst Du dann an das Listenfeld binden - z.B. an die Eigenschaft "Status geändert".

Gruß

Robert

[Blackcat]

Ich habs befürchtet...
Hab erst mal ganz vielen Dank für deine Mühen und Hilfe. Werd mich damit in den nächsten Tagen befassen, erst mal ein kleines Unterformular und wenn das klappt, gehts an das große Unterformular. Später folgen noch weitere, allerdings kleinere Unterformulare. Gibt also noch einiges zu tun.

Beste Grüße, Kerstin

[pingpong]

Ich brauche hier eine ähnliche Funktion. Ich möchte mit einer Schaltfläche ein Feld sichtbar und unsichtbar schalten. Da geht das aber nicht mit ""1" Text". Wenn ich das Makro mit der Schaltfläche über aktion ausführen verbinde, kann ich immer nur einen Schaltvorgang machen.
Also: Meine Schaltflache soll umschalten von sichtbar zu unsichtbar. Wie geht´s?

Code: Alles auswählen

Sub SubFormular_unsichtbar
    DIM oDoc AS OBJECT
    DIM oDrawpage AS OBJECT
    DIM oForm AS OBJECT
    DIM oSubForm AS OBJECT
    DIM oFeld1 AS OBJECT
    DIM oFeld2 AS OBJECT
    DIM oDocCrl AS OBJECT
    DIM oCtlView AS OBJECT
    oDoc=thisComponent
    oDrawpage=oDoc.Drawpage
    oForm=oDrawpage.Forms.getByName("test")
    oSubForm=oForm.getByName("Unterformular")
    oFeld1=oSubForm.getByName("Empfänger")
   
    oDocCrl = ThisComponent.getCurrentController()
    oCtlView = oDocCrl.GetControl(oFeld1)
    oCtlView.Visible=false
    oDocCrl = ThisComponent.getCurrentController()
    oCtlView = oDocCrl.GetControl(oFeld1)
    oCtlView.Visible=true
  
    End Sub 

[pingpong]

Mit 2 Makros und 2 Schaltflächen geht´s prima... Aber wie gehts mit Umschalten?