Auteur Topic: UserForm (deels) leegmaken (gelezen 1102 keer)

BlackDevil · « **Gepost op:** 07 november 2021, 09:01:18 »

Hallokes allemaal,

Niet echt een probleem ditmaal, eerder een informatieve vraag.

Voor het volledig leegmaken van een UF gebruik ik altijd onderstaande code-structuur

Code: [Selecteer]

For Each ctrl In Me.Controls
    Select Case TypeName(ctrl)
        Case "TextBox"
            ctrl.Value = ""
        Case "CheckBox"
            ctrl.Value = False
        Case "ComboBox"
            ctrl.ListIndex = -1
    End Select
Next ctrl

nu vroeg ik mij af hoe ik deze code eventueel zou kunnen aanpassen indien ik alle 'controls' wil leegmaken BEHALVE 'TextBox1'.
momenteel los ik het op door elke textbox apart op "" te zetten maar vroeg me dus af of het niet makkelijker kon.

Alvast dank voor tips/suggesties/mogelijkheden.

groetjes,
BlackDevil

Warme bakkertje · « **Reactie #1 Gepost op:** 07 november 2021, 09:39:25 »

Code: [Selecteer]

For Each ctrl In Me.Controls
    Select Case TypeName(ctrl)
        Case "TextBox"
            If ctrl.Name <> "TextBox1" Then ctrl.Value = ""
        Case "CheckBox"
            ctrl.Value = False
        Case "ComboBox"
            ctrl.ListIndex = -1
    End Select
Next ctrl

AD1957 · « **Reactie #2 Gepost op:** 07 november 2021, 09:40:51 »

Als de textboxen genummerd zijn bijvoorbeeld van 1 tot 10

Code: [Selecteer]

for i = 2 to 10
Me("TextBox" & i)=""
next i

andere mogelijke oplossing:

Code: [Selecteer]

waarde=textbox1
'jouw code
textbox1=waarde

zie dat Warme bakkertje ook al een oplossing had.

BlackDevil · « **Reactie #3 Gepost op:** 07 november 2021, 09:48:30 »

Citaat van: Warme bakkertje op 07 november 2021, 09:39:25

Code: [Selecteer]
For Each ctrl In Me.Controls Select Case TypeName(ctrl) Case "TextBox" If ctrl.Name <> "TextBox1" Then ctrl.Value = "" Case "CheckBox" ctrl.Value = False Case "ComboBox" ctrl.ListIndex = -1 End Select Next ctrl

Hartelijk dank voor deze oplossing warme bakkertje, mijn poging was deels juist... $_/-\o_$

Ik had in mijn poging ook de IF-statement geprobeerd maar had enkel ctrl gebruikt ipv ctrl.Name

@Albert
Ook dank aan jou uiteraard voor jouw mogelijke oplossingen

groetjes,
BlackDevil

MollyVH · « **Reactie #4 Gepost op:** 07 november 2021, 11:24:10 »

Hallo BlackDevil,

Mag het ook een tip over iets anders zijn? (want voor je eigenlijke vraag valt er niets meer te verbeteren)

Citaat

Voor het volledig leegmaken van een UF

Wat comboboxen betreft: met "ctrl.ListIndex = -1" maak je enkel het invoervak leeg, maar niet de List.
Daarvoor heb je "ctrl.Clear" nodig.
Het mag duidelijk zijn dat de waarde van mijn tip enkel te maken heeft met wat je precies wil bereiken!

Mvg,
Molly

BlackDevil · « **Reactie #5 Gepost op:** 07 november 2021, 12:12:22 »

@MollyVH,

Hartelijk dank voor je tip, deze zal ik zeker in het achterhoofd houden

.

Voor mijn huidige vraag (en huidig nieuw project) is het niet de bedoeling dat de lijst zelf wordt leeg gemaakt maar dus
enkel de waarde om dan de volgende invoer te kunnen uitvoeren.

Maar er zullen zeker andere situaties komen waarbij ik die .Clear zal nodig hebben dus $_/-\o_$

.

groetjes,
BlackDevil

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: UserForm (deels) leegmaken (gelezen 1102 keer)

BlackDevil

UserForm (deels) leegmaken

Warme bakkertje

Re: UserForm (deels) leegmaken

AD1957

Re: UserForm (deels) leegmaken

BlackDevil

Re: UserForm (deels) leegmaken

MollyVH

Re: UserForm (deels) leegmaken

BlackDevil

Re: UserForm (deels) leegmaken