afhankelijke comboboxen icm afhankelijke textbox

[Lampie173]

Hoi Excellers.


Op userform2 staat een textbox (Name = Complexnummer) die gevuld wordt door de volgende code:

FrmRapportageInvullen.Complexnummer.Value = Right(cl_optie.Caption, 3)
De Right(cl_optie.caption,3) is van de .captions van de 8 keuzerondjes (op userform1) die complex 91 ..... t/m complex 361 bevatten

De inhoud van de textbox op userform2 kan dus de volgende variabelen bevatten 91, 140, 190, 191, 310, 330, 361

2 comboboxen op userform2 wil ik laten samenwerken met deze textbox.

En wel zo:

Inhoud van textbox is : bijv. 91
Inhoud van combobox1 is : Margrietplantsoen
v. Uvenweg

Inhoud van combobox2 is : Margrietplantsoen 2-4
Margrietplantsoen 6-8
enz.

OF:

v. Uvenweg 10-12
v. Uvenweg 14-16
enz.

Afhankelijk van de keuze in combobox1

Een voorbeeldje heb ik bijgesloten.


Ps
Code achter userform via een (Nederlands) forum gevonden!

Met vriendelijke groet,

Lampie

 

[Mark xl]

Hoi Lampie,

Twee vragen:
1. Wat is concreet jouw vraag
2. Heb je wel het juiste bestand toegevoegd als bijlage

Groet,
Mark.

 

[Lampie173]

Hoi Mark,

Dank voor je reactie!
Ik zie idd dat ik het verkeerde voorbeeldbestand heb toegevoegd!!

hieronder het juiste bestand bijgesloten.


Ik hoop het nu wel duidelijk is, anders hoor ik het wel van je

Groet,

Lampie

 

[Mark xl]

Beste Lampie,

Kijk hier eens naar.

Ik heb het eens geprobeerd met een recursieve opbouw, nu hoef je niet voor elke kolom zo een rare loop te maken
Bekijk bijlage Recursief Indexeren.xlsm

Is dit een beetje wat de bedoeling is?
als je door hebt hoe het werkt kun je met een klein beetje code nog een paar extra kolommen toevoegen aan je database ook

 

[Lampie173]

Hoi Mark,

Dit is een hele grote stap in de goede richting!!:thumb:
Al is het voor mij nog een flinke kluif om dit te ontrafelen.......

Een voordeel is dat Userform1 (Kies een Complex) kan vervallen!

Ik ben al wat aan het stoeien geweest ... zie daar! .... een foutmelding!
Zie bijgesloten (aangepast) voorbeeld

Ik heb het Adres_Bereik aangepast en in het adressenbestand wat huisnummers etc. toegevoegd, en toen ging het fout......

Fout 457 : Deze sleutel is al verbonden met een lid van deze collectie!

Wat doe ik fout??


Groet,

Lampie

 

[Mark xl]

Hoi Lampie,

Het is ook niet de enige manier om dit te doen, maar ik vind het zelf makkelijker om de rompslomp te verbergen zodat het aantal stappen in het uiteindelijke userform laag blijft.

Ik heb een kleine check ingebouwd die kijkt of het toe te voegen item aan de database wel of niet leeg is, zodat lege cellen worden overgeslagen. dat leverde namelijk de door jou opgemerkte fout op. Ik stuur je gelijk even een nieuwe bijlage.

Hopelijk werkt het nu beter!

Mark
Bekijk bijlage Recursief Indexeren fixed.xlsm

 

[Lampie173]

Goedemorgen Mark,

Dank je voor snelle reactie!
En... na enige aanpassingen in de database werkt het nu goed.

Aleen ik wil de mogelijkheid hebben van COMPLEX, STRAAT, PORTIEK/GALERIJ/BERGINGSGANG en om tot op HUISNUMMERNIVEAU in te kunnen "zoomen"

En daarom toch nog even een 2-tal vragen:

ik maak nu een keuze in cbocomplex : bv 091 vervolgens kan ik in cbo1 kiezen uit Margrietpl.... en v. Uven....
kies ik nu voor bv Margrietpl.... dan kan ik in cbo2 selecteren uit portiek 2-4, portiek 6-8 ...enz of Margrietplantsoen
tot zover gaat ie goed en is het duidelijk voor mij.

Wat ik wil is dat als ik in cbo2 de keuze maak voor Margrietpl..... (zonder toevoeging 2-4, 6-8 .....enz) dat dan de focus op cbo4 met lbl "huisnummer" komt te liggen

Kies ik nu voor Margrietpla... 2-4 of een ander portiek dat dan de focus op cbo3 met lbl "algemene ruimte"

Kan je mij hiermij (voor een deel) op weg helpen?

Dan zoek ik zelf waar en hoe jij de evt. codes aangepast heb, waar ik dan zelf weer op kan voortborduren!

Ik heb mijn aangepaste bijlage toegevoegd.

Alvast dank voor je hulp tot nu toe:thumb:


Groeten,

LampieBekijk bijlage Kopie van Recursief Indexeren fixed-2.xlsm

 

[Lampie173]

Sorry,

eerdere bijlage aangepast,

Groet,

Lampie

 

[Mark xl]

Verander ComboBox2_Change() in

Private Sub ComboBox2_Change()
    Me.ComboBox2.BackColor = &HFFFF&
    Me.ComboBox3.Clear
    Me.ComboBox4.Clear
    
    If ComboBox2.Value <> vbNullString Then
        'opslaan geselecteerde item in formuliervariabele
        Set cbo2_Item = cbo1_Item.SubItems(ComboBox2.Value)
        'genereer een lijst van subitems en stop deze in de onderliggende combobox
        If ComboBox2.Value <> ComboBox1.Value Then
            ComboBox3.List = GetSubItems(cbo2_Item.SubItems)
            ComboBox3.SetFocus
        Else
            ComboBox4.List = GetSubItems(cbo2_Item.SubItems)
            ComboBox4.SetFocus
        End If
        
    End If
    
End Sub

 

[Lampie173]

Hoi Mark,

Code aangepast...

Maar er doet zich er merkwaardig iets voor.

Keuze in CboComplex = 190
Keuze in Combobox1 = Troelstraweg
Als de keuze in Combobox2 = Troelstraweg 2-84 wordt dan kan je in Combobox3 kiezen voor 'Galerij/portiek/......'
Tot zover niets loos.

Maak je nu dezelfde keuze en in Combobox2 kies je voor alleen Troelstraweg (zonder toevoeging) dan kan je in Combobox3 de huisnummers kiezen die dan eigenlijk in Combobox4 gekozen horen te worden

Wat gaat er fout?
Dank voor je aandacht!

Bekijk bijlage Kopie van Recursief Indexeren fixed-2.xlsm

Groet,

Lampie

 

[Lampie173]

Hoi Mark,

Na wat proberen en doen is het probleem is opgelost!

Het zat 'm in de opbouw van de database.

Dank voor al je hulp en duidelijke uitleg in de code!

Groet,

Lampie

Ik zet deze topic op gesloten!