Textfeld anhand von Listenfeld füllen

[cool]

Ich verstehe Deine Aufregung nicht. Ich habe eine Frage, wie man eine bestimmte Sache umsetzen kann, was ist hier schlimmes daran?

[RobertG]

Hallo cool,

blöd daran ist einfach, dass Du andere Leute damit beschäftigst, im Nebel rum zu stochern. 3 Lösungswege wurden Dir präsentiert, keiner passt. Wenn Du eben kein einfaches Beispiel dazu hochladen kannst und jemand dazu auch ein Makro gegebenenfalls einbauen kann, dann musst Du Dich mit dem Ist-Zustand Deiner Datenbank abfinden.

Gruß

Robert

[cool]

Ok... vllt habt ihr recht. Ich bereite sie mal vor und lade hoch. Möchte aber eure Hilfe nicht unterschätzen, nehme alles ernst an, nur einzigartig vielleicht.

[cool]

Hier ein Beispiel. Es war mir einfacher ein neues Beispiel zu schreiben, als meine DB zu leeren. Mein Vorhaben ist auch im Formular genauer geschildert.

[F3K Total]

Geht doch ...aber die dir so wichtige Telefonnummer konnte ich nicht finden...
R

[cool]

Danke Dir! Aber irgendwie funktioniert das bei mir nicht, ist alles beim alten. Liegt das vllt an der LO Version? Ich habe die 5.2.5.1

[F3K Total]

Ich habe es unter OpenOffice laufen lassen, geht genauso unter LO 5.2.5, allerdings muss man natürlich das neue Formular SportlerF3K nehmen und Markos zulassen. Damit das Makro laufen darf, stellst du unter Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
R

[cool]

Wow... vielen, vielen Dank, läuft super!

Nachtrag: habe das in meine DB übertragen, da läuft es komischerweise nicht.

[RobertG]

Hallo cool,

hast Du in Deiner eigenen Datenbank die gleiche Formularstruktur?
Was bedeutet "läuft nicht" - keine Fehlermeldung?
Hast Du das Makro nicht nur in die alte Datenbank kopiert sondern auch die Verknüpfung zur Änderung in dem Listenfeld gemacht?

Beschreibe einfach nacheinander, wie Du beim Übertragen vorgegangen bist, wenn Dir die obigen Hinweise nicht helfen.

Gruß

Robert

[cool]

Also ich hab's schon richtig übertragen, nur kann ich den Code nicht richtig umschreiben. Meine Tabellen und Forms heißen anders. Man, man... wo ist hier im Code was? Was steht für Formulare, und was für Tabellen?

Code: Alles auswählen

Sub Reload_Subform
    oFormSportler (ist das Sportler Form?) = ThisComponent.Drawpage.Forms.Sportler (ist das Sportler Form?)
    olstVerein = oFormSportler.lstVerein (das ist wohl der Name des Listfelds, oder?)
    olstVerein.commit (das auch)
    oFormVereine = oFormSportler.Vereine (und was ist das hier?)
    if oFormSportler.isnew then (Sportler Form?)
        oFormSportler.insertRow (Sportler Form?)
    else
        if oFormSportler.isModified then oFormSportler.updaterow (Sportler Form?)
    endif
    oFormVereine.reload (ein Form, oder Tabelle?)
End Sub

Mein Formular heißt Personen, sowie zwei Tabellen "Personen" und "Gemeinden"