Office: (Office 2016) Aktuellen Wert in Kombinationsfeld anzeigen bei Neuladen des Formulars

Hallo Liebe Gemeinde,

ich habe ein kleines Problem wo ich gerade nicht richtig weiter komme, vielleicht habe ihr ja eine Idee.

Ich möchte gern in einem Kombinationsfeld den letzten ausgewählten Wert(welcher aus einer Tabelle gezogen wird) beim Neuladen anzeigen lassen. Dies klappt auch soweit aber dann sollen in den Textfeldern die Nebenspalten angezeigt werden. Dies funktioniert aber derzeit nur beim Change Event:
Code:

Den letzten Wert lasse ich mir beim Neuladen wie folgt anzeigen:
Code:

Und dann im Load Event:
Code:

Habt ihr eine Idee? Vielleicht irgendwas mit Selected oder so?

Gruß
Marcel

:)

 

Hallo,

was ist das für ein Formular? Einzelnes Formular, mit:
Datensatzherkunft...? Wenn nicht, könnte man ja eine Hilfstabelle verwenden.
Navigationsschaltflächen Ja?
Hat das Kombi eine Datensatzherkunft? Vermutlich *Smilie

 

Versuch's doch mal mit dem Standardwert, setzen nach Aktualisierung:
Code:

Hast du getestet, ob das Load-Event in deinem Ablauf überhaupt eintritt? Ich würde bei FormCurrent neu zuweisen.
maike

 

Hallo,

was die Anzeige betrifft, reicht es aus, für die beiden Steuerelemente folgenden Ausdruck als Steuerelementinhalt zu verwenden:
Code:

Damit sind die beiden Textboxen automatisch mit der Kombobox synchronisiert.
Was du mit "letzten ausgewählten Wert" meinst, ist mir nicht ganz klar.

Ulrich

 

... ja, das ist wohl wahr, mache ich auch nur so...
die VBA Version verwende ich nie (ist mir gar nicht auf/eingefallen *Smilie ).

 

Hallo!

Zum Testen:

Code:

Was ergibt debug.print?

Kann es sein, dass während Load eintritt, die Combobox noch keine Daten hat?

mfg
Josef

 

zu Kyron9000:

Das ist ein Hauptformular mit zwei Unterfomularen, dabei hat das Kombinationsfeld die Datensatzherkunft der Tabelle "tbl_Haushaltsjahr".

Hoffe das klärt deine Fragen ;-)

zu maikek:

Das mit dem Standartwert teste ich gleich mal.
Das Load Event springt ein ja es werden eben nur nicht die Column in die Textfelder übernommen. Kann es sein das ich mit der Variablen einfach nur ein String einsetzte, welcher den Inhalt ändert aber nicht die Auswahl und dadurch da auch nichts passiert?

zu knobbi38:

Das werde ich testen:-)

Mit "letzten ausgewählten Wert" meine ich zuvor ausgewählten Wert im Kombinationsfeld, wenn ich das Formular schließe. Diesen setze ich ja dann bei Neuafruf wieder ein.

Ich hoffe habe das nicht zu kompliziert erklärt und danke schonmal*biggrin.gif*
Gruß
Marcel

 

... noch nicht so ganz, das Hauptformular hat eine Datensatzherkunft?
Wenn nicht könntest du dir eine Hilfstabelle erstellen, in der du diesen Wert speicherst.
Dann ersparst dir den gesamten VBA Code.

 

Nein nur die Unterformulare haben das

Das schau ich mir mal an mit der Hilfstabelle ;-)

Danke
Gruß
Marcel

 

.. wenn du das so erstellst, musst du für das Hauptformular
"Zyklus" - "Aktueller Datensatz" einstellen.
Diese Tabelle sollte nur einen Datensatz beinhalten, so kannst sie für mehrere
Formulars verwenden!
Felder können dann schon einige sein, für was du sie eben benötigst.

 

Was ergibt debug.print?

Irgendwie nix *frown.gif*

 

... du musst das Direktfenster aktivieren... [Strg]+[G]
in der Ereignisprozedur

 

Hier der Direktbereich

 

Den Text per Copy&Paste zu übertragen war schwieriger als einen Screenshot zu erstellen und das Bild hochzuladen?

Code:

Wenn folgende Ausgabe kommt:
Code:

bedeutet das, dass es in der Datenquelle der Combobox keinen Treffer gab.
Das kann sein, weil die Datenquelle noch nicht geladen ist oder die gebundene Spalte nicht zum Wert "HH 18/19" passt.

Wenn der Datensatz verfügbar wäre, müsste .Column(.BoundColumn - 1) den gleichen Wert wie .Value ergeben.
Ist in der Tabelle tblHaushaltsjahr der Wert "HH 18/19" ein Primärschlüssel?

mfg
Josef

 

...mach es mit einer Hilfstabelle und stelle sie für das Hauptformular als
Datensatzherkunft ein.
z.B. Tabelle... tblSettings / Feld... IDHaushalt
IDHaushalt für das Kombi Me.cboHaushalt als Steuerelementinhalt
Für die beiden Anzeigefelder wie schon Ulrich geschrieben hat...

Das VBA Herumgehüpfe macht in deinem Formular keinen Sinn!