Problem mit Zuweisung des aktuellen Datensatz ins nächste Formular

[Fu]

Hallo,

kann mir jemand bitte bei folgender Sache helfen:

Ich habe ein Hauptformular (frmElement) mit einem Unterformular (frmElement_ufoVerbindungsart). Mittels Schaltfläche wird ein Formular (frmZuweisung) geöffnet in der dann mehrere Kriterien ausgewählt werden können, welche dann im Ufo des Hauptformulars erscheinen.
Durch Doppelklick auf einen Datensatz (Textfeld) in diesem Ufo soll ein neues Formular (frmVerbindung) als PopUp geöffnet werden. In diesem Formular werden dann abhängig von dem im Ufo angeklickten Datensatz wechselnde Ufos (frmVerbindung_ufoVerb1, ...) angezeigt.
Dazu habe ich mit

Code [Auswählen] Erweitern

Private Sub txtName_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmVerbindung", , , , , , Me!vart_id

die vart_id an frmVerbindung weitergegeben, welche dort beim öffnen in einem Listenfeld (IstVerbindungssart ) angezeigt wird und mit der dann das entsprechende Ufo zugewiesen wird:

Code [Auswählen] Erweitern

Private Sub IstVerbindungdsart_AfterUpdate()
Dim strufoVerbindung As String
    Select Case Me.Controls("IstVerbindungsart").Value
    Case 22
        strufoVerbindung = "frmVerbindung_ufoVerb1"
    Case 19
        strufoVe...

Das funktioniert, bis auf eine Sache. Ohne die wechselnden Ufos hätte ich die OpenForm Methode dazu benutzt die ele_id an das frmVerbindung zuzuweisen, die dort nun nicht mit dem aktuellen Datensatz im Hauptformular übereinstimmt.

Wie kann ich das hinbekommen? Vielen Dank.

Schöne Grüße
Raphael


Tabellen:
tblElement (ele_id, ele_bez)
1:n
tblVerbindungsart_Element (vartele_id, ele_id_f, vart_id_f)
n:1
tblVerbindungsart (vart_id, vart_bez)
1:n
tblVerbindung (ver_id, vart_id_f, ver1_id_f, ver2_id_f, ...)
n:1
tblVerb1 (ver1_id, ver1_bez)
tblVerb2 ...

[MzKlMu]

Hallo,
kannst Du bitte mal ein Bild des Bezeihungsfensters hier zeigen ?
Damit lässt sich mehr anfangen als mit Deiner Beschreibung.

[Fu]

Hallo,

anbei das Beziehungsfenster.

Gruß Raphael

Sie dürfen in diesem Board keine Dateianhänge sehen.