Office: (Office 2016) Combobox in RegisterSteuerelement aktualisieren

Ich habe ein Formular als Register angelegt. Seite 0 = Hauptformular (FRMHaus) beinhaltet die Anschriften diverser Gebäude. Seite 1 (UFWohnungen) enthält die zu einem Haus gehörenden Wohnungen (Verknüpft über HAUSID). Die Seite 2 (UFEigentümer) beinhaltet die Eigentümer der einzelnen Wohnungen der Häuser … insgesamt gibt es 8 UF die auf den Seiten 0 bis 7 angeordnet sind. Alle sind über die HAUSID mit dem Hauptformular verknüpft.
Nun gibt es auf den UF unter anderem Combo-Boxen. So zum Beispiel auf dem UFEigentümer eine ComboBox, die die Wohnungen beinhaltet. Nun sollen in diese Box nur die Wohnungen enthalten sein, die zu dem Haus gehören, das im Hauptformular angezeigt wird. Dass mache ich über dieses sql – Statement.

PHP:

         Public Sub setcombobwohnid()
'fülle Combo Wohnung nach Haus 2020.10.20

Dim sql As String


'
sql = "SELECT Wohnid, Lage FROM tblwohnungen "
sql = sql & "WHERE Hausid = " & Me.HausID & " "
sql = sql & "ORDER BY wohnid"
With combobWohnID
.RowSource = sql
.ColumnCount = 3
.ColumnWidths = "0 cm; 3 cm; 3 cm"
End With
Debug.Print sql
End Sub


:)

 

Code:

Funktioniert bei mir immer ohne Probleme.

 

Hallo Martin,

das kann so nach deiner Beschreibung nicht stimmen. Die Begrifflichkeiten sollte man nicht durcheinander werfen. Dein Registersteuerelement (TabControl) muß sich in einem Formular befinden, welches üblicherweise als Hauptformular bezeichnet wird. Unterformulare sind Formulare, welche in einem SubForm-Control als Container eingebettet sind - nur mal so, um das klarzustellen.

Wenn man wissen möchte, wie ein Control angesprochen werden muß, hangelt man sich im Objektmodel an den Controlsauflistungen entlang. In deinem Fall haben das HF und das darin enthaltene entsprechende Seiten-Steuerelement (PageControl) jeweils eine eigene Auflistung.

Da deine Beschreibung nun nicht eindeutig ist, müßtest du das jetzt selber bei dir nachschauen, wie die Kette aussieht.

Gruß Ulrich

 

donkarls Access-Seiten
maike

 

Danke knobbi38, ich werde vor meiner nächsten Frage ein Studium anstrengen, damit ich alle Begriffe gut handhaben kann. Bis dahin wird es noch einige Wochen dauern, was mich in meinem Problem nicht weiterbringen wird.

Martin

 

Ja CatboyJones das könnte eine Lösung sein.
Das Problem, dass ich auf die PUBLIC SUB von den anderen Formularen nicht zugreifen kann. Normal kann ich doch auf PUBLIC SUB zugreifen.

Martin

 

Wenn die Public Sub im Klassenmodul eines fremden Formulars steht, dann geht das nicht direkt.
Im Standardmodul schon.

Du solltest den Hinweis von Maike beachten.
Bei "Änderung" ist das passende Ereignis (Registersteuerelement), um das Kombi neu zu belegen.
Auf eine Sub im Klassenmodul eines anderen Formulars zuzugreifen, halte ich für schlechten Programmierstil.

Wenn die WHg tatsächlich Ufo ist, dann kannst du doch einfach auf den Fremdschlüssel zugreifen und so die Rowsource des Kombis neu belegen.

 

\@Martin
Wenn ich dich richtig verstehe, sollte dich das weiterbringen:

Code:

 

Die einfachste Lösung wäre doch, das Ereignis des Kombis selbst zu verwenden.
Sobald das Kombi den Focus erhält, setzt du die Rowsource neu.

 

Ja fredfred leider reagiert das Formular auf "bei Änderung" nicht.
Ich will mal eine andere Anwendung probieren wo auch ein Steuererlement untergebracht ist, ob da eine Reaktion auf "bei Änderung" erfolgt. Dann könnte es an meinen Verweisen liegen.

JA, die Funktionen der Combo zu nutzen ist richtig und wird (hilfsweise) auch genutzt, Es ist nur so, dass das UF erst mit Daten gefüllt wird, wenn man explizit auf die Combo geht (get Fokus). Wenn man das UF öffnet, sind die entsprechenden Werte erstmal nicht vorhanden.

Ob ich mit der Syntax von Catboy weiterkomme, kann ich noch nicht sagen. Bisher nicht. Meine Versuche waren bisher erfolglos. Ich probiere weiter bzw. suche mir einen Profi, der das bei mir einbauen kann.

Martin

 

Hallo Martin,

es geht nicht darum, daß du, bevor du hier eine Frage stellst, erst ein Studium zu absolvieren hast, sondern darum, daß du dein Problem so beschreiben kannst, daß die Helfenden dich auch verstehen und bei einer Lösung nicht aneinander vorbeigeredet wird.

Was dein Problem betrifft, sollte das TabControl.Change Event das richtige sein, um der Kombobox eine neue Rowsource zuzuweisen. Wie du an das Control kommst, habe ich dir ja schon beschrieben und nach deiner Ansage kannst ruhig auch selber in der OH beim Objektmodel nachsehen.

Nur insofern noch ein Tip:
Beim Page-Steuerelement ist, anders als beim Form-Objekt, die Controls-Auflistung nicht die Defaulteigenschaft, also funktioniert der Bang-Operator(!) nicht und du mußt über .Controls("Controlname") das Steuerelement vollständig referenzieren.

Ulrich

 

Es ist sicherlich nicht die Lösung, die alle favorisieren. Aber ich habe eine gefunden:

Im UF muss folgendes eingetragen werden:

PHP:

         Private Sub Form_Current()
setcomboLage
End Sub


 

Nicht bei 'Änderung' des Formulars, das ist ein Ereignis des Register-Steuerelements!...