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

radiobutton

Status
Niet open voor verdere reacties.
E

Eastw00d

Gebruiker
Lid geworden
3 mrt 2013
Berichten
118
ik heb een formulier met daarop een 20 tal velden. Achter elke veld kan men via een radiobutton ja of nee selecteren. Deze waarde moet vervolgens worden weggeschreven.

ik probeer dit mbv
Code: 
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
     Blad1.[c2].Value = "WAAR"
     Else
     Value = "onwaar"
End If

maar dit werkt niet

help
 
Zo dan?
Code: 
Private Sub OptionButton1_Click()
     Blad1.[c2].Value = OptionButton1.Value
end sub
 
werkt in zoverre, als ik nee aan klik, blijft de waarde in cel c2 staat, deze moet dan onwaar worden ipv waar
 
Eastw00d zei:
werkt in zoverre, als ik nee aan klik, blijft de waarde in cel c2 staat, deze moet dan onwaar worden ipv waar
Klik om te vergroten...

Gebruik dan geen Option button maar een Checkbox.
 
maar bij een checkbox kan ik meerdere opties aanvinken en dat mag niet
 
Nee, een checkbox vink je aan of uit.
Als je een Option Button wilt gebruiken heb je er twee per vraag nodig.
Eentje voor Ja en eentje voor nee. De code wordt dan dit:
Code: 
Private Sub OptionButton1_Click()
    Blad1.[c2] = IIf(OptionButton1, "Ja", "Nee")
End Sub

Private Sub OptionButton2_Click()
    Blad1.[c2] = IIf(OptionButton1, "Ja", "Nee")
End Sub

Beide kijken dan naar OptionButton1.

Zie voorbeeld document voor zowel een checkbox als 2 option buttons:
Bekijk bijlage JaNee.xlsm
 
Laatst bewerkt:
Dan moet je de change-event gebruiken.
Voor twee optionbutttons op je blad.
Code: 
Private Sub OptionButton1_Change()
 Blad1.[c2].Value = OptionButton1.Value
End Sub
 
deze werkt!

Alvast bedankt. Kan ik ook de reeds ingegeven optie's laten laden bij het openen van dit formulier?
 
In de initialize van het form

Code: 
optionbutton1 = true
 
Is het zoiets wat je zoekt.
De optionbutons worden in het formulier geladen bij openen.
 

Bijlagen

  • optionbuttons in formulier(cobbe).xlsb
    18,2 KB · Weergaven: 34
Helaas Cobbe, bedankt maar dit zoek ik niet. Ik bedoel eigenlijk een keuze die ik eerder gemaakt heb, moet bij het initialiseren van het formulier al ingegeven zijn als ik hem voor een 2de maal open
 
Dan zal je die keuze ergens moet opslaan.
 

Bijlagen

  • optionbuttons in formulier(cobbe)1.xlsb
    18,8 KB · Weergaven: 33
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan