Datensatz finden in UFO per Listenfeld im HF

[Atuatuca]

Hallo Access-O-Maniacs,

ich versuche gerade per Listenfeld (lst_Mitarbeiter) im Hauptformular (frm_Firma) den entsprechenden Datensatz im Unterformular (ufrm_Mitarbeiter) zu suchen.

Hauptformular und Unterformular sind per ID_Firma mit einander verknüpft.

Wenn ich im Hauptformular (frm_Firma) eine Firma per Kombinationsfeld (suche_Firma) auswähle, dann zeigt die DB mir die Daten zur Firma an im Hauptformalar und im Listenfeld (last_Mitarbeiter) die Mitarbeiter welche der Firma angehören. Im Unterformular (ufrm_Mitarbeiter) zeigt er mir den Ersten Datensatz und über die Navigationsschaltflächen kann ich mir die anderen Mitarbeiter der ausgewählten Firma anzeigen lassen im Unterformular.

Gerne würde ich direkt zum jeweiligen Mitarbeiter (DAtensatz) springen welche ich im Listenfeld des Hauptformulars anklicke.

Leider weiss ich überhaupt nicht wie ich das anstellen soll.

Ich weiss nur wie man ein neues Formular öffnet und den entsprechenden Datensatz anzeigen lässt

Code [Auswählen] Erweitern

Private Sub lst_OPL_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm_Offene_Punkte", , , "ID_OPL=" & Me!lst_OPL
End Sub

Ich vermute es ginge mit GoToRecordSet

Code [Auswählen] Erweitern

Private Sub lst_Mitarbeiter_Click()
GoToRecordSet.....????
End Sub

Für Hilfe dankbar.

Gruss
Atuatuca

[el_gomero]

Moin,

von der Logik her sollte die Auswahl im Ufo stattfinden. Dann ist es auch ganz leicht - mit dem Assi zB ein Kombi zur Auswahl zu erstellen. Davon abgesehen wäre vllt auch eine Filterung interessant - aus dem HF per

Code [Auswählen] Erweitern


Sub ListFeld_MA_Click()
   
    Me!SteuerelementnameUfo.Form.Filter="ID_MA=" & Me!Listfeld_MA.Column(x)
    Me!SteuerelementnameUfo.Form.FilterOn = True

End Sub


[MaggieMay]

Hallo,

den entsprechenden Datensatz im Unterformular (ufrm_Mitarbeiter) zu suchen.

"Suchen" könnte auch bedeuten, dass du auf den ausgewählten Datensatz springen willst, das ginge dann so:

Code [Auswählen] Erweitern

Me!ufrm_Mitarbeiter.Form.Recordset.FindFirst = "ID_MA=" & Me!lst_Mitarbeiter

vorausgesetzt dass "ufrm_Mitarbeiter" der Name des Ufo-Steuerelements im Hfo ist und die Mitarbeiter-ID die gebundene Spalte des Listenfeldes.

[Atuatuca]

Hallo Maggie May,

der Ansatz erscheint mir vielversprechend

"Suchen" könnte auch bedeuten, dass du auf den ausgewählten Datensatz springen willst, das ginge dann so:

Genau das möchte ich (klick im Listenfeld im HF, zeigt entsprechenden Datensatz im UFO). Zur Zeit zeigt das UFO (ufrm_Mitarbeiter) immer den ersten Datensatz aus dem Listenfeld (lst_Mitarbeiter) aus dem HF (frm_Firma). Was ja nicht schlimm ist, aber wenn eine Firma viele Mitarbeiter hat, dauert es ein bisschen bis mann/frau sich durch geklickt hat  .

vorausgesetzt dass "ufrm_Mitarbeiter" der Name des Ufo-Steuerelements im Hfo ist und die Mitarbeiter-ID die gebundene Spalte des Listenfeldes.

Wo finde ich bitte schön "Ufo-Steuerelements im Hfo" ?
Das Unterformular hat den Namen ufrm_Mitarbeiter

ID des Mitarbeiters ist die gebundene Spalte im Listenfeld im HFO

ufrm_Mitarbeiter
Herkunftsobjekt: ufrm_Mitarbeiter
Verknüpft nach: ID_Firma (aus tbl_Firma)
Verknüpft von: Firma (aus tbl_Mitarbeiter)

Gruss
Atuatuca

[Atuatuca]

Code [Auswählen] Erweitern

Private Sub lst_Mitarbeiter_Click()
Me!ufrm_Mitarbeiter.Form.Recordset.FindFirst = "ID=" & Me!lst_Mitarbeiter
End Sub

Gibt ein Laufzeitenfehler 3251 auf o.g. Zeile.

 

Gruss
Atuatuca

[Beaker s.a.]

Hallo Atuatuca,
Ein UFo besteht aus zwei Komponenten, 1. dem UFo-Steuelement, das ist so zu sagen der Kontainer für 2. das eigentliche Formular (Herkunft).
In deinem Fall:

ufrm_Mitarbeiter

Das ist das Steuerelement. Dieses solltest Du umbenennen (z.B. Ufo_Mitarbeiter), da es schlecht ist, wenn es den gleichen Namen wie

Herkunftsobjekt: ufrm_Mitarbeiter

das Formular hat, das darin eingebettet ist.
Dann lautet die Codezeile:

Code [Auswählen] Erweitern

Me!Ufo_Mitarbeiter.Form.Recordset.FindFirst = "ID=" & Me!lst_Mitarbeiter
und sollte funzen.
hth
ekkehard

[MaggieMay]

Das erste "=" muss entfernt werden.

Bei Unklarheiten hilft ein Blick in die Access-Hilfe.

PS:

Ein UFo besteht aus zwei Komponenten, 1. dem UFo-Steuelement, das ist so zu sagen der Kontainer für 2. das eigentliche Formular (Herkunft).

Man muss schlicht und einfach unterscheiden zwischen dem Unterformular-Steuerelement und dem darin enthaltenen Formular. Die Namen können - müssen aber nicht - übereinstimmen, da muss einem nur klar sein was wann bzw. wozu gebraucht wird.

da es schlecht ist, wenn es den gleichen Namen wie [...] das Formular hat, das darin eingebettet ist.

Wie kommst du da drauf?

[Atuatuca]

Hallo Ekkehard und MaggieMay,

leider verstehe ich nur Bahnhof (ohne Licht)   

Habe Formular umbenannt in Ufo_Mitarbeiter und als code

Code [Auswählen] Erweitern

Private Sub lst_Mitarbeiter_Click()
Me!Ufo_Mitarbeiter.Form.Recordset.FindFirst "ID=" & Me!lst_Mitarbeiter
End Sub

Jetzt bekommen ich Laufzeitenfehler 2465: kann das Angesprochene Feld 'Ufo_Mitarbeiter' nicht finden.

Ich bin Ratlos. Screenshots im Anhang.

Gruss
Atuatuca

[MaggieMay]

Das ist das Steuerelement. Dieses solltest Du umbenennen (z.B. Ufo_Mitarbeiter)

Habe Formular umbenannt in Ufo_Mitarbeiter

Siehst du nun vielleicht selbst deinen Fehler?

PS:
Das Umbenennen hättest du dir echt sparen können, weil es nur noch mehr Verwirrung stifftet.
Der einzige Fehler lag im falsch gesetzten Gleichheitszeichen.

[Atuatuca]

Hallo MaggieMay & Ekkehard,

vielen Dank für Eure Unterstützung.

Jetzt funktioniert es tadelos mit:

Code [Auswählen] Erweitern

Me!ufrm_Mitarbeiter.Form.Recordset.FindFirst "ID_MA=" & Me!lst_Mitarbeiter

Unterformular heisst: ufrm_Mitarbeiter
Listenfeld: lst_Mitarbeiter
Hauptformular: frm_Firma
ID_MA = die ID (=primärschlüssel) die zum jeweiligen Mitarbeiter gehört.

Gruss
Atuatuca

[Beaker s.a.]

Moin,
Prima, dass es läuft.
Das erste "=" hatte ich übersehen.
Wegen Namensgleichheit habe ich mich nicht gut ausgedrückt. Ich habe es mir angewöhnt, und komme besser damit zurecht zu wissen welches Objekt ich anspreche.
gruss ekkehard