Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: een commandbutton aanroepen vanuit een module

  1. #1
    Senior Member
    Geregistreerd
    7 juli 2010
    Vraag is opgelost

    een commandbutton aanroepen vanuit een module

    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?

  2. #2
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    Senior Member
    Geregistreerd
    7 juli 2010
    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 ?

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Userform leegmaken:

    Code:
    unload me
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  6. #6
    Senior Member
    Geregistreerd
    7 juli 2010
    probleempje opgelost als volgt
    Code:
    Sub userform_leegmaken()
     Unload UserForm1
     UserForm1.Show
    End Sub
    bedankt voor de hulp en de wijze lessen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren