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