Waarde 0 weergeven als textbox leeg is

[gl3nn1987]

Goededag ik heb een vraagje,

Ik heb een stuk of 120 textboxen en ik wil dat als de waarde ervan leeg is ("") hij er een 0 van maakt zodat deze later in het rekenoverzicht mee kunnen worden genomen.

Aangezien ik niet van plan ben 120 if functies aan te gaan maken, was mijn vraag of hier een algemeen iets voor was waar ik met 1 functie dit kan aangeven.

Alle textboxen hebben een aparte naam, die geenzins logisch is qua nummering.

 

[sylvester-ponte]

120 functies aanpassen kan ook met een macro
graag een voorbeeld plaatsen

groet sylvester

 

[Niels28]

Als het om alle textboxen gaat, anders moet je er een paar uitsluiten.

Private Sub CommandButton1_Click()
For Each tb In Me.Controls
If TypeName(tb) = "TextBox" Then
If tb.Value = "" Then tb.Value = 0
End If
Next
End Sub

Niels

 

[gl3nn1987]

Thanks Niels daarmee moet ik t kunnen redden