6
Access (VBA) - wie mit Combobox (Hauptformular) Wert der Combobox im Unterformular (Endlosformular) einstellen bzw. ändern?
Hallo,
ich habe in Access ein Unterformular (Endlosformular) erstellt (siehe Bildausschnitt B). In diesem UFo ist eine gebundene Combobox eingefügt, mit der für jeden Datensatz ein anderer Wert (Währungskürzel) eingestellt werden kann. Das funktioniert und die Werte werden auch nach erneutem öffnen des Formulars wieder genau so angezeigt.
Nun besteht folgendes Problem:
Das o.g. UFo ist in ein Hauptformular integriert. Mit einer "übergeordneten" Combobox (ungebunden), die sich im Detailbereich des Hauptformulars befindet (siehe Bildausschnitt A), soll es möglich sein, für alle Datensätze des UFo's den Wert der Combobox umzustellen, so das überall dasselbe Währungskürzel erscheint.
Da alle meine Versuche bisher gescheitert sind, benötige ich hier Hilfe.
Wie wird so etwas programmiert?
ich habe in Access ein Unterformular (Endlosformular) erstellt (siehe Bildausschnitt B). In diesem UFo ist eine gebundene Combobox eingefügt, mit der für jeden Datensatz ein anderer Wert (Währungskürzel) eingestellt werden kann. Das funktioniert und die Werte werden auch nach erneutem öffnen des Formulars wieder genau so angezeigt.
Nun besteht folgendes Problem:
Das o.g. UFo ist in ein Hauptformular integriert. Mit einer "übergeordneten" Combobox (ungebunden), die sich im Detailbereich des Hauptformulars befindet (siehe Bildausschnitt A), soll es möglich sein, für alle Datensätze des UFo's den Wert der Combobox umzustellen, so das überall dasselbe Währungskürzel erscheint.
Da alle meine Versuche bisher gescheitert sind, benötige ich hier Hilfe.
Wie wird so etwas programmiert?
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 309795
Url: https://administrator.de/forum/access-vba-wie-mit-combobox-hauptformular-wert-der-combobox-im-unterformular-endlosformular-einstellen-bzw-309795.html
Ausgedruckt am: 21.04.2025 um 23:04 Uhr
6 Kommentare
Neuester Kommentar
Leider lassen die Sicherheitsbestimmungen hier keinen Download zu.
Gruß
cu
Send me your mail address via PM then i can send you this db. Without the db you won't not understand the code ...
But here it is:
But here it is:
Private Sub comboCurrency_Change()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE currencylist SET currencylist.currency = " & Me.comboCurrency.Value
Me.currencylist_subform.Requery
DoCmd.SetWarnings True
End Sub
Es geht in kleinen Schritten voran, ist aber nocht nicht perfekt. 
Ich habe den Code wie folgt angepasst:
Wenn ich nun in der Combobox im Hauptformular (Bildausschnitt A) einen anderen Wert einstelle, erscheint unnötigerweise eine Parameterabfrage (Bildauschnitt C). Wenn ich dort einen Wert eingebe und diesen bestätige werden im Unterformular die Werte zwar geändert und in der Tabelle gespeichert, aber leider bei ALLEN Datensätzen, also auch bei denen die NICHT im Unterformular ausgewählt worden sind.
Gruß
cu
Ich habe den Code wie folgt angepasst:
Private Sub cboHauptformularWaehrung_Change()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tabAuftrag SET tabAuftrag.Waehrung = " & Me.cboHauptformularWaehrung.Value
Me.cboUnterformularWaehrung.Requery
Forms!frmHauptformular!frmUnterformular!cboUnterformularWaehrung
DoCmd.SetWarnings True
End SubWenn ich nun in der Combobox im Hauptformular (Bildausschnitt A) einen anderen Wert einstelle, erscheint unnötigerweise eine Parameterabfrage (Bildauschnitt C). Wenn ich dort einen Wert eingebe und diesen bestätige werden im Unterformular die Werte zwar geändert und in der Tabelle gespeichert, aber leider bei ALLEN Datensätzen, also auch bei denen die NICHT im Unterformular ausgewählt worden sind.
cu
Then you only need to update the SQL Query with an additional where condition which checks if the field is empty or not.
We don't know how your tables are structured, and which column types you are using!!!. I told you that you need the demo db to understand it completely 
because I am using multiple tables for the values and i use the reference ids.
DoCmd.RunSQL "UPDATE tabAuftrag SET tabAuftrag.Waehrung = " & Me.cboHauptformularWaehrung.Value & " where tabAuftrag.Waehrung <> ''"
Vielen Dank für deine Unterstützung. Dein Ansatz hat sehr zur Lösung meines Problems beigetragen.
Die o.g. Parameterabfrage erfolgte, weil in der Tabelle als Felddatentyp "Text" eingestellt ist. Das musste im Code noch berücksichtigt werden.
Gruß
cu
Die o.g. Parameterabfrage erfolgte, weil in der Tabelle als Felddatentyp "Text" eingestellt ist. Das musste im Code noch berücksichtigt werden.
Gruß
cu
