Re: [de-users] Tipps zu Writer Formularen mit Abfragen

Hallo Susanne,

schau mal hier in meiner CLOUD

https://magentacloud.de/s/KYLsjXTzY62DCqF?path=%2FBasicMacro

im Dokument

"DOC - BASIC-Makros für OO und LO - OOME 4.0 - 2022 - Pitonyak [DEU] 
Heier.odt"

im Abschnitt

"18 Dialoge und Steuerelemente".

Vielleicht hilft Dir das weiter ...

Grüße
Hans-Werner ;-))


------ Originalnachricht ------
Von susanne.mohn-lo@kiel-pries.de
An "'Robert Großkopf'" <robert@familiegrosskopf.de>; 
users@de.libreoffice.org
Datum 09.11.2023 12:44:16
Betreff AW: [de-users] Tipps zu Writer Formularen mit Abfragen

> Moin Robert,
>
> moin @all,
>
> nochmals vielen Dank.
> Ich versuche mich jetzt an Calc Forms.
> In einem Tabellenblatt die Daten, im anderen das Formular.
>
> Nur gibt es quasi keine Anleitungen  zu den Steuerelementen in Calc. Ist ja etwas anders als in 
> Writer oder Base.
> Was trage ich z.B. bei Source Cell range bei Comboboxen ein...
> List box ist wieder etwas anders ....
> Ich finde da nicht wirklich was....
>
> Grüße
> Susanne
>
> -----Ursprüngliche Nachricht-----
> Von: Robert Großkopf <robert@familiegrosskopf.de>
> Gesendet: Mittwoch, 8. November 2023 17:48
> An: users@de.libreoffice.org
> Betreff: Re: [de-users] Tipps zu Writer Formularen mit Abfragen
>
> Hallo Susanne,
>
> ich habe das einmal für den Writer fertig gemacht - mit Makro.
> Schicke ich Dir per privater Mail zu.
>
> SUB List(oEvent AS OBJECT)
>         DIM a()
>         oField = oEvent.Source.Model
>         stTag = oField.Tag
>         stStart = oField.CurrentValue
>         oForm = oField.Parent
>         oFieldTarget = oForm.getByName(stTag)
>         IF stStart = "" THEN
>                 oFieldTarget.Enabled = False
>                 EXIT SUB
>         ELSE
>                 oFieldTarget.Enabled = True
>         END IF
>         SELECT CASE stStart
>                 CASE "Schleswig-Holstein"
>                         a = array("Kiel", "Flensburg", "Eckernförde")
>                 CASE "Niedersachsen"
>                         a = array("Emden", "Oldenburg", "Hannover")
>                 CASE "Nordrhein-Westfalen"
>                         a = array("Düsseldorf", "Münster", "Rheine")
>         END SELECT
>         oFieldTarget.StringItemList = a
>         oFieldTarget.refresh
> END SUB
>
> In dem ersten Feld steht in den Zusatzinformationen der Name des 2.
> Listenfeldes. Der Inhalt, den das erste Listenfeld anzeigt, muss mit den CASE-Bedingungen 
> übereinstimmen.
>
> Gruß
>
> Robert
> --
> Homepage: https://www.familiegrosskopf.de/robert
>
>
> --
> Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
> Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
> Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
> Listenarchiv: https://listarchives.libreoffice.org/de/users/
> Datenschutzerklärung: https://www.documentfoundation.org/privacy
>
>
> --
> Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
> Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
> Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
> Listenarchiv: https://listarchives.libreoffice.org/de/users/
> Datenschutzerklärung: https://www.documentfoundation.org/privacy
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy