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
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:
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 ...
Hallo,
kannst Du bitte mal ein Bild des Bezeihungsfensters hier zeigen ?
Damit lässt sich mehr anfangen als mit Deiner Beschreibung.
Hallo,
anbei das Beziehungsfenster.
Gruß Raphael
Beziehungen.JPG