• 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.

een commandbutton aanroepen vanuit een module

Status
Niet open voor verdere reacties.
E

ewh

Gebruiker
Lid geworden
7 jul 2010
Berichten
273
Code: 
Sub userform_leegmaken()
 Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        Select Case TypeName(ctrl)
            Case "TextBox", "ComboBox": ctrl.Value = ""
        End Select
    Next ctrl
                            'hier moet commandbutton5-click van userform1 worden aangeroepen 
End Sub

deze code heb ik via dit forum mogen krijgen, top.
de alle text en comboboxen zijn nu leeg, maar de begin situatie is nog niet hersteld , dat doe ik met commandbutton5-click , hoe kan ik die aan roepen?
 
Die code die je plaats moet je aanroepen op het formulier, en niet in een gewone sub.

Stop ze daarna bij elkaar.
Je maakt het jezelf onnodig moeilijk.
 
oke , dus de code die ik nu onder commandburron5 heb staan kopieren en in de getoonde code zetten? of roep je dan de commandbutton5 aan ?
 
Die 'Sub formulier leeg maken' staat nu in een gewone sub.
Maak op je formulier een commandbutton, en roep de code daarmee aan.

Code: 
private sub commandbutton1_click()
Dim ctrl As Control
    For Each ctrl In Controls
        Select Case TypeName(ctrl)
            Case "TextBox", "ComboBox"
               ctrl.Value = ""
        End Select
    Next ctrl
'....................code van commandbutton5 hier.............
end sub
 
Userform leegmaken:

Code: 
unload me
 
probleempje opgelost als volgt
Code: 
Sub userform_leegmaken()
 Unload UserForm1
 UserForm1.Show
End Sub

bedankt voor de hulp en de wijze lessen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan