Alle Textboxen legen

[gbvdh]

Goedendag,

Ik wil op m'n VBA UserForm graag een knop waarmee al m'n textboxen geleegd worden, ik weet dat het per box prima gaat met textbox1=empty maar ik heb er nogal veel dus dat zou nogal veel code worden. Daarom dacht het moet vast mogelijk zijn om alles met 1 code te legen. Ik heb een code gevonden (die geen foutmeldig geeft)

Dim o As Object
Dim vTest As Variant

On Error Resume Next
Set o = FormObject.Controls
If Err.Number > 0 Then Exit Sub

Dim ctl As Control
For Each ctl In FormObject.Controls
    'ensure ctl is a text box and not
    'some other control with a text property such as a list box
    Err.Clear
    vTest = ctl.MultiLine
    vTest = ctl.Text
    vTest = ctl.ScrollBars
    If Err.Number = 0 Then ctl.Text = ""
Next

maar er gebeurd niks mee. Dan heb ik nog een andere eenvoudiger ogende versie gevonden

 Dim txt As Control

'clear the text boxes
 For Each txt In frmClearMe

  If TypeOf txt Is TextBox Then txt.Text = ""

maar als ik deze uitvoer krijg ik een foutmelding. Iemand enig idee hoe dit op te lossen is?

Bij voorbaat dank,
Barry

 

[Wigi]

Zie bij Dave Hawley's code.

 

[gbvdh]

Werkt vrij eenvoudig, cheers