[Gelöst]Verknüpfte Formulare

[gogo]

nein reicht nicht.

Du musst den Namen des KEs mit-übergeben - am besten also eine Erweiterung des Strings im .TAG-Feld:

Code: Alles auswählen

Childs|ID_Parent = |Childs_MainForm|ID_Parent_numeric@Parents_Grid|fmtID_Parent@Childs_Grid

aufgelöst wird das dann etwa so:

Code: Alles auswählen

	'setzt den Defaultwert auf "FilterWert" ... das ist die ID_Parent
	' zunaechst wird das ForeignKey-Kontrollelement gesucht:
	oForeignKey_Elementnamen() = split(aArgs(4), "@")

	if ubound(oForeignKey_Elementnamen) = 0 then
		oForeignKey_KE = oFormNeu.getbyname(oForeignKey_Elementnamen(0))
	else
		oForeignKey_KE = oFormNeu.getbyname(oForeignKey_Elementnamen(1)).getbyname(oForeignKey_Elementnamen(0))
	end if

	'Dann: IF-Anweisungskette die mit .PropertySetInfo.hasPropertyByName("DefaultValue") absucht ob ein Default-Wert
	'gesetzt werden kann
	if  oForeignKey_KE.PropertySetInfo.hasPropertyByName("DefaultValue") then
		oForeignKey_KE.DefaultValue = FilterWert
	else
	if  oForeignKey_KE.PropertySetInfo.hasPropertyByName("EffectiveDefault") then
		oForeignKey_KE.EffectiveDefault = FilterWert
	else
	if  oForeignKey_KE.PropertySetInfo.hasPropertyByName("DefaultText") then
		oForeignKey_KE.DefaultText = FilterWert
	else
		msgbox "Der Defaultwert fuer den Foreign Key (" & FilterWert & ") konnte NICHT gesetzt werden!"
	end if
	end if
	end if
	
	'nach dem Setzen des Default-Values wird der Filter gesetzt und aktiviert, damit nur die gewuenschten
	'Datensaetze angezeigt werden.
	oFormNeu.filter = aArgs(1)
	oFormNeu.reload

[gerald3659]

Fehlermeldung von Libreoffice

Fehler1.jpg (11.91 KiB) 5217 mal betrachtet

Hallo gogo
Ich kam erst gestern dazu alles auszuprobieren.
Irgendwo mache ich einen Fehler und komme nicht dahinter.

Ich lade mal die Meldungen und die Datenbank hoch.
Vielleicht kannst Du mir zeigen, wo mein Fehler liegt.

[gogo]

Füge mal vor diese Zeile folegndes ein:

Code: Alles auswählen

msgbox "ich suche im Formular: " & oFormNeu.Name & " das TabellenKE: " & oForeignKey_Elementnamen(1) & " sowie die Spalte " & oForeignKey_Elementnamen(0)

Sollte das Formular NICHT "Childs_mit_Grid" heissen, stimmt das Objekt oFormNeu nicht - da müsste man dann testen warum. Sollte das Formular "Childs_mit_Grid" heißen suchst Du de Elemente wie benannt.

[gerald3659]

Hallo Gogo

ich erhalte nachdem ich die Msgbox-Zeile eingefügt habe folgende Meldung in meiner Datenbank:

SOFFICE: Ich suche im Formular Persabteilung (das Formular das ich öffne)
das TabellenKE Persabteilung_Grid (existiert in dem geöffneten FOrmular)
sowie die Spalte fmtPers_ID_PersStamm_numeric (existiert ebenfalls im Formular)

Ich habe das mehrfach geprüft. Deskhalb frage ich mich: Was mache ich falsch?

Danke für Deine Hilfe

PS: In meinem letzten Post habe ich die Datenbank, so wie sie besteht hochgeladen.

[gogo]

Kannst Du mal den String aus dem Tag posten?

Code: Alles auswählen

Childs|ID_Parent = |Childs_MainForm|ID_Parent_numeric@Parents_Grid|fmtID_Parent@Childs_Grid

Childs: Name des Formulars in der Datenbank
Childs_MainForm: Name des Formular-Objektes im Formular
Childs_Grid: Name des Tabellen-Kontrollelementes im Formular-Objekt Childs_MainForm
fmtID_Parent: Name der Spalte im Childs_Grid

teile bitte einmal die Fehlerzeile:

Code: Alles auswählen

oForeignKey_KE = oFormNeu.getbyname(oForeignKey_Elementnamen(1))
oForeignKey_KE = oForeignKey_KE.getbyname(oForeignKey_Elementnamen(0)) 

dann wissen ob der Fehler das Tabellen-KE oder die Spalte betrifft

[gerald3659]

Hallo GoGo
hier ist mein TAG-String

Code: Alles auswählen

PersAbteilung|Pers_ID=|PersAbteilung_main|Pers_ID_PersStamm_numeric|fmtPers_ID_PersStamm_numeric@PersAbteilung_Grid

Das mit dem Trennen der Codezeilen probiere ich gleich aus.

Erst mal Danke

Gerald

Edit
Das mit dem Trennen habe ich jetzt ausprobiert.
Er meldet mir jetzt die zweite Zeile als Fehler.
Allerdings meldet er vorher einen SQL-Fehler. Kann SPalte nicht finden.
Nun bin ich etwas blind.
Ich finde im Formularobjekt die Zeile für die Verknüpfungen nicht.

Ich habe mal wieder meine db Kontakte angehängt

[gogo]

Tippfehler

"Pers_ID_PersStamm_numeric" muss "Pers_ID_Stamm_numeric" heißen! ... oder Du benennst die Spalte auf "Pers_ID_PersStamm_numeric" um

"Pers_ID=" muss "Pers_IDStamm=" heißen

[gerald3659]

Hallo Gogo

Danke für das "korrekturlesen".
Ich habe die Fehler einfach nicht gesehen.
Nun klappt es einwandfrei.

Du bist klasse

Gerald

[tanmos]

ich klink mich mal einfach so ein, und sag auch danke. hat mir grad extrem weiter gehlofen

liebe grüße, tanja