Hi,
ich habe für die Anzeige von verschiedenen Bildern ein individuell gestaltetes Unterformular entworfen.
Nun würde ich gerne auf meinem Hauptformular, dieses UF zweimal plazieren. Dabei soll aber die Datenquelle für jedes UF eine andere sein. Beide "UF-Tabellen" sind mit dem HF über 1:n verknüft.
Solange ich das nur mit einem UF mache, klappt das auch reibungslos. Die Datenquelle für das/die UF's lege ich mit VBA wie folgt fest:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [Bilder_Sitz_Ansicht]")
Set Forms("Stücke_FullHD").Steuerelement_Sitz_Ansicht.Form.Recordset = rst
Set rst = Nothing
Und die Verknüfungseinstellungen im Open-Ereignis des Hauptformulars:
Me!Steuerelement_Sitz_Ansicht.LinkChildFields = "FK_Sitz_ID"
Me!Steuerelement_Sitz_Ansicht.LinkMasterFields = "Ort"
Geht das nicht, oder mache ich hier was grundlegend verkehrt?
Hallo,
es genügt, der RecordSource-Eigenschaft des Unterformulars eine Abfrage oder einen Select-String zuzuweisen, ein Recordset brauchst du hierfür nicht.
Und wo ist das Problem mit dem zweiten Ufo? Warum machst du es dort nicht genauso?
Die Zuweisung der RecordSource der Ufos kann im Open-Ereignis des HF vorgenommen werden. Die Verknüpfungsfelder müssen nicht per VBA gesetzt werden, die kannst du über die Eigenschaften fest einstellen.
Hi,
danke erst mal für die Antwort.
Ich hatte das Problem, dass ich einiges an Code im "Form-Current-Ereignis" des UFOs habe und dies anscheinend vor dem Hauptformular geladen wird und mir somit ein Haufen Fehlermeldungen erzeugt, wenn das UFO noch keine Datenquelle hat.
Was das zweite UFO angeht, da hatte ich ja ein äquivalentens Recordset angelegt wie für das andere UFO-Steuerelement auch, nur liefert das eben immer eine Fehlermeldung.
Hi,
Unterformulare werden (im Gegensatz zu Unterberichten) vor dem Hauptformular geladen.
Das wäre hier wohl zu berücksichtigen.
Zitatnur liefert das eben immer eine Fehlermeldung.
Der Wortlaut der Fehlermeldung könnte evtl. - wenn nicht dir, aber den Helfern - helfen...