Sinds kort werk ik met access en probeer een vragenlijst te maken. Op een van mijn vragen is een antwoord in een keuzebox te vinden. Ik heb deze aanmaak van de keuzebox onder de knie. Echter het lukt mij niet in vba per select case een andere handeling uit te laten voeren.
Als voorbeeld:
"Private Sub soortonderzoek_AfterUpdate()
If Me.soortonderzoek = 5 Then
Me.protocolDEC__Bijschrift.Visible = True
Me.protocolDEC.Visible = True
Me.indieningDEC_Bijschrift.Visible = True
Me.indieningDEC.Visible = True
Me.goedkeuringDEC_Bijschrift.Visible = True
Me.goedkeuringDEC.Visible = True
Else
Me.soortonderzoek = False
End If
If Me.soortonderzoek = 6 Then
Me.soortonderzoekanders.Visible = True
Me.soortonderzoekanders_Bijschrift.Visible = True
Else
Me.soortonderzoekanders.Visible = False
End If
End Sub"
De afzondelijke "If Me" werken wel, maar als ik ze samen voeg werken ze geen van beiden.
Is er iemand die mij hiermee kan helpen?
Wat ik wil bereiken: bij keuze case 5 dat er nieuwe vragen zichtbaar worden, bij keuze case 6 dat er achter het antwoord een verklaring gegeven kan worden.
Hulp wordt zeer op prijs gesteld!
Als voorbeeld:
"Private Sub soortonderzoek_AfterUpdate()
If Me.soortonderzoek = 5 Then
Me.protocolDEC__Bijschrift.Visible = True
Me.protocolDEC.Visible = True
Me.indieningDEC_Bijschrift.Visible = True
Me.indieningDEC.Visible = True
Me.goedkeuringDEC_Bijschrift.Visible = True
Me.goedkeuringDEC.Visible = True
Else
Me.soortonderzoek = False
End If
If Me.soortonderzoek = 6 Then
Me.soortonderzoekanders.Visible = True
Me.soortonderzoekanders_Bijschrift.Visible = True
Else
Me.soortonderzoekanders.Visible = False
End If
End Sub"
De afzondelijke "If Me" werken wel, maar als ik ze samen voeg werken ze geen van beiden.
Is er iemand die mij hiermee kan helpen?
Wat ik wil bereiken: bij keuze case 5 dat er nieuwe vragen zichtbaar worden, bij keuze case 6 dat er achter het antwoord een verklaring gegeven kan worden.
Hulp wordt zeer op prijs gesteld!