• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

alle textboxen en comboboxen leeg maken

  • Onderwerp starter Onderwerp starter ewh
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

ewh

Gebruiker
Lid geworden
7 jul 2010
Berichten
288
in een userform1 staan veel textboxen en comboboxen nadat de gebruiker de ingevulde data heeft opgeslagen ( dmv VBA ) wil ik graag in een keer alle textboxen en comboboxen leeg maken.

wie kan helpen hier mee?
 
Probeer dit eens:
Code:
Sub LeegMaken()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        Select Case TypeName(ctrl)
            Case "TextBox", "ComboBox": ctrl.Value = ""
        End Select
    Next ctrl
End Sub
 
Code:
dim ctrl as control
for each ctrl in controls
 if typename(ctrl) = "TextBox" or typename(ctrl) = "ComboBox" then ctrl = ""
next ctrl
 
Of:
Code:
Dim ctrl As Control
For Each ctrl In Controls
    If InStr("TextBox,ComboBox", TypeName(ctrl)) > 0 Then ctrl = ""
Next ctrl
 
mannen bedankt , wel grappig dat er meerdere oplossing zijn
 
sorry , helaas even geveild door een griepje, maar nu weer verder
alle codes geprobeerd en krijgen alle maal een foutmelding

ik heb de code een module opgenomen , maar heb het idee dat hij wel moet verwijzen naar de userform1 dus
code wat aangepast
Code:
Sub userform_leegmaken()
UserForm1.Show
Dim ctrl As Control
For Each ctrl In Controls
 If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then ctrl = ""
Next ctrl
End Sub

maar zonder resultaat , war doe ik niet goed ?
 
Die code hoort niet in een module maar achter het userform zelf, bijvoorbeeld in de Userform_Initialize.
 
opgelost de eerste oplossing egnomen was vergeten Me. te wijzigen in userform1.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan