Clear data userform

[Atwist]

Hallo

Als ik in mijn userform op "invoer" druk dan worden de gegevens netjes in de lijst gezet, maar de gegevens blijven ook op mijn userform staan.

Hoe kan ik deze weg krijgen "clear data"

Deze code zit onder de "invoer" knop

'clear the data
ListBox12.Value = ""
TextBox1.Value = ""

Met deze code dacht ik dat het wel ging maar hellaas.

 

[Roncancio]

Met onderstaande code worden alle textboxen en listboxen leeggemaakt.

Dim CTRL As control
    For Each CTRL In Me.Controls
        If TypeOf CTRL Is MSForms.ListBox Then
            CTRL.RowSource = ""
        ElseIf TypeOf CTRL Is MSForms.TextBox Then
            CTRL.Value = ""
        End If
    Next

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Dit werkt inderdaad veel beter er blijven u nog een paar "Labels" hangen.
Heb de code uitgebreid met

ElseIf TypeOf CTRL Is MSForms.Label Then
            CTRL.Value = ""

Maar dat werk niet.
Kan de lable ook met zoiets??

 

[Roncancio]

Verander Value in Caption.
Dus ipv ...

 CTRL.Value = ""

... wordt het dus...

 CTRL.Caption = ""

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Hij werkt weer prima:thumb:

Mijn dank is weer groot