Access-o-Mania

Hallo geschätzte Access-o-Manie-Community,

in nachfolgender Darstellung habe ich markiert, was ich mir wünsche.
1.) Die Listbox soll nur die Einträge zugehörig zu dieser Kunden-Nr. anzeigen
2.) Die AngebotID des markierten Eintrags in dieser Listbox möge an das UFo weitergegeben werden.

2020-09-26 access20.PNG
2020-09-26 access21.PNG

Könnte mir bitte jmd helfen / mich anleiten, das umzusetzen? Dazu sei erwähnt, dass ich von VBA reichlich wenig Ahnung hab und vermutlich deshalb ein, zwei Details mehr brauche  ???

Private Sub ListBoxAngebote_AfterUpdate()
    Me.ufAngebot.Form.Recordset.FindFirst "AngebotID = " & Me.ListBoxAngebote
' "ufAngebot" muss der Name des Rahmens sein, NICHT der des Forms
End Sub(Namen anpassen)

Ach so, die Listbox musst du auf die KundenID filtern
SELECT AngebotID, Angebot_KundeID_F, AngebotDatum, AngebotBeschreibung
FROM tblAngebote
WHERE Angebot_KundeID_F = Forms!fKunde!KundeID

1.000 Dank, @Beaker s.a.

perfekt - funktioniert :-) :-) :-)

und wie kann ich die ListBox noch auf nur jene Einträge filtern, die dem Feld "KundeID" entsprechen?
...also Punkt 1 in meinem Screenshot im Auftakt-Post oben.

Hallo,
steht doch auch in der Antwort von Beaker s.a. (2. Codebeispiel)

@MzKlMu : Korrekt. Ich würde sagen der Post ist geupdated worden - ich schwöre das hat vorher da noch nicht gestanden. Anyways - so passt es!

Danke euch!

ja, der Select tut auch, was er soll. Auch dafür mein aufrichtiger Dank.

Jetzt fehlt irgendwie nur noch eine Aktualierung, wenn ich einen Datensatz (sprich einen Kunden) weiterspringe; da stehen dann nämlich im Moment noch die Angebote vom ersten Kunden (also jenem bei Aufruf des Formulars).

Das oben war ja jetzt ein SQL-Statement, welches ich bei der ListBox in die Datensatzherkunft gepackt habe und ich vermute, da muss jetzt noch irgendetwas in die Ereignis-Felder nach oder vor Aktualisierung, allerdings dann VBA, richtig?

der Post ist geupdated worden Ja, stimmt, habe vergessen das zu markieren, sorry.

Zitatnur noch eine Aktualierung, wenn ich einen Datensatz (sprich einen Kunden) weiterspringe

Private Sub Form_Current()
    Me.ListBoxAngebote.Requery
End SubZum Verständnis lese das Ereignis in der OH nach.

geilo!! ;-)

nachmals mein Dank

Noch eine ergänzende Frage dazu: Kann ich auch die ID / die Datensatz-Nr. des UFo's also "Markierung" / "Datensatz-Markierer"* der ListBox (falls der da auch so heißt) zurückgeben? ... s. Bild

2020-09-29 access04_return ID.PNG

2020-09-29 access05_return ID.PNG

Der "angeklickte" Eintrag wird ja - danke Deiner Hilfe - an das UF übergeben. Wenn ich jedoch im UF per Navigationsleisten blättere, könnte beim User Verwirrung entstehen. Klar, ich könnte die Nav-Schaltflächen deaktivieren, das brächte aber seinerseits wieder andere Probleme.

im UFo (ungetestet)
Private Sub Form_Current()
    With Me.Parent
        .ListBoxAngebote = .ListBoxAngebote.ItemData(Me.txtAngebotID)
    End With
End Sub

Hallo @Beaker s.a. ,

fast!
Beim Blättern im UF (z.B. zu AngebotID=4) springt die Markierung in der ListBox zum 4. Eintrag, nicht zur zweiten Zeile, wo eigentlich die AngebotID=4 ist.

VG + Dank

Hallo Tom,
War mir auch nicht so sicher. Versuche (bei mir hat es so geklappt)
Private Sub Form_Current()
    With Me.Parent
        .ListBoxAngebote.Selected(.ListBoxAngebote.ItemData(Me.txtAngebotID)) = True
    End With
End SubWobei die Spalte mit der AngeboteID die gebundene sein muss.
gruss ekkehard