Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Keuzerondjes programmeren in VBA

None
4 antwoorden
  • Hallo.

    Ik heb een probleem met het programmeren van keuzerondjes in een groepsvak.

    ik heb een 3 tal formulieren die ik via een menu toelaatbaar wil maken.
    Ik heb daarom een extra formulier gemaakt waarop ik 3 keuzerondjes en een knop "volgende" heb gemaakt.

    Ik wil het zo maken dat als ik 1 keuzerondje aanklik en dan op volgende druk dat hij dan een ander formulier opent.

    Heeft iemand hier ervaring mee of weet hoe ik dit geprogrammeerd kan krijgen??

    Alvast bedankt
  • [quote:1517a471b8="pielie"]Hallo.

    Ik heb een probleem met het programmeren van keuzerondjes in een groepsvak.

    ik heb een 3 tal formulieren die ik via een menu toelaatbaar wil maken.
    Ik heb daarom een extra formulier gemaakt waarop ik 3 keuzerondjes en een knop "volgende" heb gemaakt.

    Ik wil het zo maken dat als ik 1 keuzerondje aanklik en dan op volgende druk dat hij dan een ander formulier opent.

    Heeft iemand hier ervaring mee of weet hoe ik dit geprogrammeerd kan krijgen??

    Alvast bedankt[/quote:1517a471b8]

    Dit is vrij simpel.
    1. Definieer een modulevariabele als Integer.
    2. Geef bij elke klik op de keuzerondjes deze variabele een eigen waarde
    3. Bepaal in de code voor de knop "volgende" de waarde van de variabele en open aan de hand daarvan een formulier.

    In code:
    [code:1:1517a471b8]
    Private intCheckedItem As Integer

    Private Sub CommandButton1_Click()

    Select Case intCheckedItem
    Case 1: UserForm2.Show
    Case 2: UserForm3.Show
    Case 3: UserForm4.Show
    Case Else
    End Select
    End Sub

    Private Sub OptionButton1_Click()
    intCheckedItem = 1
    End Sub

    Private Sub OptionButton2_Click()
    intCheckedItem = 2
    End Sub

    Private Sub OptionButton3_Click()
    intCheckedItem = 3
    End Sub
    [/code:1:1517a471b8]
  • In de click-event van de keuzerondjes plaats je de volgende code: [code:1:46fb34abd2]Private Sub OptionButton1_Click()
    UserForm2.Show
    End Sub
    [/code:1:46fb34abd2]

    In plaats van UserForm2 vul je dan de naam van jouw formulier in.
  • [quote:a50beb8a58="DutchNoName"]In de click-event van de keuzerondjes plaats je de volgende code:[/quote:a50beb8a58]
    Dit kan ook, maar de TS vroeg dus om een oplossing waarbij pas bij de klik op de knop een specifiek formulier kon worden geopend.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.