Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Formular mit Unterformular

Begonnen von uwe01, Mai 11, 2019, 20:22:40

⏪ vorheriges - nächstes ⏩

uwe01

Hallo Leute,
ich stehe da mal wieder auf den Schlauch bei  meinem Problem.
Ich habe ein Formular mit Unterformular welches  in 1:n Beziehung  steht. Im Hauptformular
ist ein Listenfeld welches auch das Unterformular bedient. Wenn ich auf der Schaltfläche einen Datensatz vor- zurück klicke Funktioniert es auch. Aber ich finde es sehr  mühsam immer einen Datensatz vor oder zurück zu klicken.
Jetzt habe ich gedacht man kann es ja auch mit einem Kombinationsfeld machen. Und schon entstand mein Problem. Es ist zwar schön dass man alle ausgewählten Datensätze sieht. Aber wenn ich jetzt einen Datensatz  auswähle Aktualisiert sich leider das Unterformular nicht.
Kann mir da einer mal ein Tipp geben welchen VBA Code ich eingeben muss damit das Kombinationsfeld im Hauptformular  auch das Unterformular bedient, und  wo man den VBA Code eingibt.
Ich danke euch für eure Hilfe
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

MzKlMu

Hallo,
das musst Du mal genauer erklären.
Wenn das eine 1:n Beziehung ist, so ist die 1-Seite das Hafo und die n-Seite das Ufo.
Die Verknüpfung Hafo-Ufo erfolgt über die Schlüsselfelder der Beziehung in den Dateneigenschaften "Verknüpfen von/nach". Mit dem Listenfeld bzw. Kombi hat das doch gar nichts zu tun.
Wozu hast Du hier überhaupt das Listenfeld bzw. Kombi, zum Suchen ?
Gruß Klaus

Beaker s.a.

Hallo Uwe,
Zitatauswähle Aktualisiert sich leider das Unterformular nicht.
Und das HFo wahrscheinlich auch nicht, sonst würde auch in diesem Fall
das UFo reagieren.
Gibt es Code für Ereignisse des Kombis?
Untenstehenden sollte es geben, dann aktualisiert auch das UFo wie beim
DS-Wechsel per Klick.
Voraussetzung: Kombi ist ungebunden, in der ersten Spalte (gebunden)
steht die ID, die im HFo die DS identifiziert.
Private Sub DeinKombi_AfterUpdate()
    Me.Recordset.FindFirst "ID = " & Me.DeinKombi
End Sub


gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

uwe01

Hallo Klaus & Ekkehard
Danke schon mal für eure Antworten.
@Klaus ich weiß gerade nicht wie ich es genauer Erklären kann. Deswegen hänge ich mal eine Demo DB mit an. Vieleicht erklärt es sich ja dadurch, wie du sehen kannst in der einen Anwendung wähle ich das Kennzeichen aus und es wird mir im Unterformular auch angezeigt. Nur bei dem Formular mit dem Kombifeld ändert sich nichts im Unterformular. Änderung erhalte ich wieder nur durch Datensatz vor-zurück.
@Ekkehard deine Info muß ich noch Testen vieleicht hielft mir ja deine Antwort schon weiter.
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

MzKlMu

#4
Hallo,
der Aufbau der Formulare ist völlig falsch.
Im Hafo zeigt man das Fahrzeug bzw. Wechselbrücke an und im Ufo die Rechnungen.
Hafo und Ufo werden über die ID verknüpft, nicht über das Kennzeichen. Daher ist das Kennzeichen in der Rechnungstabelle überflüssig, Du hast ja die ID zum Fahrzeug.
Die Synkronisation Hafo-Ufo erfolgt dann automatisch, egal ob Du zur Suche ein Kombi oder ein Listenfeld benutzt.
Bei den Beziehungen ist referentielle Integrität einzustellen. Wenn das nicht geht, liegen Fehler in den Daten vor.
Die Tabelle RechnungenKombifeld ist ersatzlos überflüssig, wozu soll die gut sein ?

In Feldnamen keine Leer und Sonderzeichen verwenden.

Das sollest Du erst mal alles bereinigen.

Gruß Klaus

MzKlMu

Hallo,
ich habe es Dir mal gerichtet.
Gruß Klaus

uwe01

Hallo Klaus,
ich danke dir vielmals für deine Hilfe, das ist genau das was ich versucht habe.
1000 Dank und noch ein schönen Sonntag Nachmittag
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !