[Gelöst]Listenfeld oder Kombinationsfeld verknüpfen[/Gelöst]

[Cardinal]

Bist Du Dir sicher, dass die Markierung nicht in dieser Zeile ist?:

Ich bin mir sicher. Er kommt leider nicht so weit.

Hab den Auslöser auf Firma/nach Aktualiseren geändert... er hängt sich immer noch an besagter Stelle auf

[gogo]

sry - mein Fehler!

Das Makro bitte dem Ereignis "Nach dem Aktualisieren" des Kontrollelements zuweisen nach dessen Änderung das Listfeld geändert werden soll. - also das in dem die Firma steht.

beim Formstart wird das makro ausgelöst ohne dass es das Formular schon gibt

[Cardinal]

sorry. Hatte das Makro noch im Formular drin. Habs jetzt nur noch beim Feld Firma. Jetzt kommt die Meldung nicht mehr. Aber es werden mir auch keine Projekte angezeigt. Dies ist jedoch schon ein Fortschritt... ich melde mich wenn ich genaueres weiss.

Danke nochmal. Und sorry fürs nerven.

[gogo]

Das Prompt mit dem SQL-String kommt nicht? Dann wird das Makro nicht ausgeführt! Du kannst auch einen Button anlegen und beim Ereignis "Aktion ausführen" das Makro zuweisen - dann sollte bei klick auf den Button das Makro ablaufen.

[Cardinal]

Richtig, das Makro wurde nicht ausgeführt. Jetzt hab ichs mal so eingestellt, dass es ausgeführt wird, wenn txtFirma den Fokus verliert. Wie oben schon geschrieben kommt immer noch der Laufzeitfehler bei:

oForm = ThisDatabaseDocument.FormDocuments.GetByName("Geometrie").component.drawpage.Forms.getByName("MainForm")

jedenfalls ist die Zeile markiert und der Pfeil steht davor.

Gruss Car

[uhai]

Danke gogo,

das habe ich jetzt verstanden

uhai

[uhai]

ok, so weit habe ich das verstanden. Basic muss ich üben, damit habe ich zu DOS-Zeiten das letzte mal gebastelt

Könnte man das auch mit Python machen?

Wenn ich mehrere Listenfelder in einer hierarchischen Abhängigkeit habe, muss ich mehrere Variablen definieren. Immer eine weniger als Listenfelder vorhanden sind. Wie fange ich aber User-Eingaben ab, die sich nicht an der logischen Struktur entlang arbeiten sondern die Listenfelder "frei" nutzen?

uhai

[Cardinal]

so... ich habs hingekriegt. Ist vielleicht ein riesen gebastel, mir aber eig. sch. egal, da es meine Zwecke erfüllt:

Code: Alles auswählen

 Sub Listenfeld_Aendern
'erzeugt oForm und fuellt diese Variable mit dem Objekt "MainForm"

'erzeugt oTextfeld und fuellt diese Variable mit dem Objekt "txtFirma"
sFirmenname = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "txtFirma" ).Text

'erzeugt sFirmenname und fuellt diese Variable mit dem String der derzeit im Feld "txtFirma" steht.

dim ssql(0) as string


'erzeugt sSQL und fuellt diese Variable mit dem gewuenschten SQL-Statement
sSQL (0)	 = "SELECT DISTINCT ""Projekte"".""Projektname"" FROM ""Projekte"" ""Projekte"""_
     & " WHERE ""Projekte"".""Firma"" = '" & sFirmenname & "';"


print sSQL (0)

'sSQL ins Listenfeld 1 einfügen

dim oDoc as object
dim  oForm as object
dim oListboxModel as object


    oDoc = ThisComponent
    oForm = oDoc.DrawPage.Forms(0)
    oListboxModel = oForm.getByName("Listenfeld 1")

	oListboxModel.ListSource() = sSQL ()
    oListboxModel.refresh()

end sub

ich bedanke mich hier nochmals für die Hilfe und speziellen Dank geht an gogo, der mir ein Makro zur Verfügung gestellt hat.

Gruss Car