Combobox vullen door textbox en daarna door selectievakje?

[Gielleke]

Beste leden,

Graag wil ik voor de laaste keer beroep doen op jullie hulp, voor het compleet maken van mijn kasboek.

Ik ga niet veel uitleg geven maar gewoon een voorbeeld en en foto daar kan men meteen zien wat ik graag wil bereiken.

Kan er iemand een eenvoudige code toevoegen aan wat ik al heb?

Private Sub txtUitgaven_Change()

If txtUitgaven = "" And txtInkomsten = "" Then
    ComboBox1.RowSource = ""
Else
    ComboBox1.RowSource = "Uitgaven"
End If

End Sub

Private Sub txtInkomsten_Change()
 
If txtInkomsten = "" And txtUitgaven = "" Then
    ComboBox1.RowSource = ""
Else
    ComboBox1.RowSource = "Inkomsten"
End If

End Sub

Bij vragen hoor ik jullie graag.
Hoop dat iemand mij nog kan helpen?

Alvast bedankt!!
Mvg,

 

[Roncancio]

In bijgevoegd bestand wordt de combobox aangepast aan de hand van de gekozen opties.

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Code werkt perfect!! :thumb:

Grote dankt.

Prettige dag nog,
Mvg,

 

[snb]

Een aparte module is overbodig.
Je kunt de test eenvoudiger uitvoeren in het userform zelf met:

Private Sub CheckBox1_Click()
    keus
End Sub

Private Sub txtUitgaven_Change()
    keus
End Sub

Private Sub txtInkomsten_Change()
    keus
End Sub

Private Sub keus()
    ComboBox1.RowSource = IIf(txtInkomsten.Text <> "", "inkomsten", "uitgaven") & IIf(.CheckBox1.Value, "interneboeking", "")
    If txtInkomsten.Text & txtUitgaven.txt = "" Then ComboBox1.RowSource = ""
End Sub

 

[Gielleke]

Beste Roncancio,

Zoals u weet zou ik graag aan jou vragen voor mijn vrag uit te breiden als dit nog mogenlijk is. Graag op de bestaande formule van jou, dat helpt mij voor de aan te passen aan het werkelijke document.

Ik ga niet veel uitleg geven maar een foto en mijn bestand opnieuw.
Bij een vraag hoor ik het graag.

Alvast bedankt!!!
Mvg,

 

[Gielleke]

Hey,

Verkeerde foto gestuurd. Bij deze aangepast.

Mvg,

 

[Roncancio]

Hey,

Verkeerde foto gestuurd. Bij deze aangepast.

Mvg,

Bij deze het bijgewerkte bestand.

Zou het ook nog kunnen dat de optionbuttons zijn aangeklikt evenals Interne Boeking?
Wellicht dat daar een aparte lijst voor de combobox is?

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Ik had mij vergist van foto. Dit zou het resultaat willen zijn dat ik graag zou willen bereiken:

Al jou vorige oplossingen en resultaten werken perfect. Nog maals dank ervoor.
Maar ik kwam tot inzien dat ik 2 soorten gewoone uitgaven heb. en zou graag de persoon nog de keus laten tussen de "vaste" en "extra"

De visible dat gaat me zeker lukken maar voor de code verder uit te breiden is iets moeilijker.

Bij vragen hoor ik het graag.
Alvast bedankt!!

Mvg,

 

[Roncancio]

Wat is het verschil tussen de foto's?
Hoeveel foto's zijn er eigenlijk?

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Het is een beetje zoek de 2 verschillen.
In mijn laaste reactie (afbeelding) zijn de 2 laaste userforms met de optionbuttons actief, maar als u goed kijkt in voorgaande posts. Zie je dat het selectievakje van "interne boeking" nog actief was en dat was een foutje van mij.

waarde in textbox uitgaven dan zou men moeten kiezen tussen vaste of extra uitgaven via de optionbuttons. pas derna zou ik graag de combobox laten vullen met de gegevens die erbij horen.

Is dat nog mogenlijk denk je?
Bedankt!!

Mvg,

 

[Roncancio]

Beste Roncancio,

Het is een beetje zoek de 2 verschillen.
In mijn laaste reactie (afbeelding) zijn de 2 laaste userforms met de optionbuttons actief, maar als u goed kijkt in voorgaande posts. Zie je dat het selectievakje van "interne boeking" nog actief was en dat was een foutje van mij.

waarde in textbox uitgaven dan zou men moeten kiezen tussen vaste of extra uitgaven via de optionbuttons. pas derna zou ik graag de combobox laten vullen met de gegevens die erbij horen.

Is dat nog mogenlijk denk je?
Bedankt!!

Mvg,

Volgens mijn zeer onbescheiden mening is het bestand wat ik bij # 7 heb gestuurd conform je laatste opmerkingen.
Als ik het mis heb, of ik ben iets vergeten, dan hoor ik het graag.

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Mijn excusses had jou bestandje niet opgemerkt.

Maar alles is zoals het moet zijn!! weeral top gedaan!!:thumb:

Alvast weermaals bedankt.
Prettige avond,
Mvg,