Enabled/disabled textbox wat doe ik niet goed

[allard1]

Hallo beste mensen,

Ik heb een formulier met textboxen gemaakt. Of deze textboxen wel of niet te bereiken zijn, hangt af van vraag waar met ja of nee op geantwoord kan worden. Nu heb ik deze grap al eens uitgehaald met een checkbox, maar checkboxen vind ik persoonlijk niet mooi. Ik heb dus gemaakt met een combobox met de waarden Ja en Nee. Nu heb ik onderstaande code geschreven, maar ik krijg een foutmelding (ongeldige compileerfout) wat doe ik niet goed

If Me.lstafwijkendestaffel.Value = "Ja" Then

Me.lbl1519 .Enabled = True
Me.txt1519 .Enabled = True
Me.lbl2024 .Enabled = True
Me.txt2024 .Enabled = True
Me.lbl2529 .Enabled = True
Me.txt2529 .Enabled = True
Me.lbl3034 .Enabled = True
Me.txt3034 .Enabled = True
Me.lbl3539 .Enabled = True
Me.txt3539 .Enabled = True
Me.lbl4044 .Enabled = True
Me.txt4044 .Enabled = True
Me.lbl4549 .Enabled = True
Me.txt4549 .Enabled = True
Me.lbl5054 .Enabled = True
Me.txt5054 .Enabled = True
Me.lbl5559 .Enabled = True
Me.txt5559 .Enabled = True
Me.lbl6064 .Enabled = True
Me.txt6064 .Enabled = True
Else

Me.lbl1519.Enabled = False
Me.txt1519.Enabled = False
Me.lbl2024.Enabled = False
Me.txt2024 .Enabled = False
Me.lbl2529 .Enabled = False
Me.txt2529 .Enabled = False
Me.lbl3034 .Enabled = False
Me.txt3034 .Enabled = False
Me.lbl3539 .Enabled = False
Me.txt3539 .Enabled = False
Me.lbl4044 .Enabled = False
Me.txt4044 .Enabled = False
Me.lbl4549 .Enabled = False
Me.txt4549 .Enabled = False
Me.lbl5054 .Enabled = False
Me.txt5054 .Enabled = False
Me.lbl5559 .Enabled = False
Me.txt5559 .Enabled = False
Me.lbl6064 .Enabled = False
Me.txt6064 .Enabled = False
End If
End Sub

Groet,
Allard

 

[Wigi]

Haal ten eerste de spaties uit de namen.

 

[allard1]

Haal ten eerste de spaties uit de namen.

even een schaammoment......................................................... okee dat hebben we gehad. Wat dom zeg van die spaties. Gadver de gadver. Maar goed weer opgelost! Bedankt

 

[allard1]

Toch een kleine aanvulling.

Als ik hem opstart (het formulier) dan is ongeacht het antwoord in lstbox alles zichtbaar. Kun je dit ook automatisch uitschakelen en pas bij een antwoord inschakelen ?

 

[Wigi]

Bij het Initialize event van de userform, zet alles op .Enabled = False.

Bij een wijziging in lstafwijkendestaffel test je eerst of die op "Ja" gezet wordt. Want op nee zetten heeft verder geen gevolg en hoef je geen code voor te schrijven. Indien "ja", zet de .Enabled op True.

 

[allard1]

Bij het Initialize event van de userform, zet alles op .Enabled = False.

Bij een wijziging in lstafwijkendestaffel test je eerst of die op "Ja" gezet wordt. Want op nee zetten heeft verder geen gevolg en hoef je geen code voor te schrijven. Indien "ja", zet de .Enabled op True.

Fantastisch............Bedankt voor je geweldige hulp En dat gedoe met die spaties doe je volgens mij maar 1 keer

 

[Axel Hagg]

Dag Allard,

Nog een aanvulling:

Private Sub UserForm_Initialize()
lstafwijkendestaffel.Value = "Nee"
SetTexboxen
End Sub

Private Sub SetTextboxen()
Dim i As Integer

For i = 1 To 20
Choose(i, lbl1519, txt1519, lbl2024, txt2024, lbl2529, txt2529, lbl3034, txt3034, lbl3539, txt3539, lbl4044, txt4044, lbl4549, txt4549, lbl5054, txt5054, lbl5559, txt5559, lbl6064, txt6064).Enabled = (lstafwijkendestaffel.Value = "Ja")
Next
End Sub


Gegroet,

Axel.

 

[allard1]

Dag Allard,

Nog een aanvulling:

Private Sub UserForm_Initialize()
lstafwijkendestaffel.Value = "Nee"
SetTexboxen
End Sub

Private Sub SetTextboxen()
Dim i As Integer

For i = 1 To 20
Choose(i, lbl1519, txt1519, lbl2024, txt2024, lbl2529, txt2529, lbl3034, txt3034, lbl3539, txt3539, lbl4044, txt4044, lbl4549, txt4549, lbl5054, txt5054, lbl5559, txt5559, lbl6064, txt6064).Enabled = (lstafwijkendestaffel.Value = "Ja")
Next
End Sub


Gegroet,

Axel.

Hey Axel,

Bedankt voor je reactie. Nu is de VBAcode simpeler.......hmmmmzzz ben er nog niet zie ik qua vba kennis Maar dit is wel super!!!!

Ik zal hem trouwens op opgelost zetten