[Access 2010]Subform alleen zichtbaar bij waarde X

[Eusebius]

In een formulier heb ik een keuzelijst met "gesprek", "vergaderging", "taak" etc. Nu wil ik afhankelijk van de keuze een ander subformulier laten zien. Dit krijg ik niet voor elkaar, misschien kan iemand mij op weg helpen. De VBA code tot nu toe:

code:

Private Sub Label__wat__AfterUpdate()
  If [Label__wat_] =  Then

        subtest.Visible = True
 
    Else
 
        subtest.Visible = False
 
    End If
End Sub

ps - de keuzelijst wordt uit een andere tabel gehaald.

[pedorus]

AfterUpdate is niet echt het juiste event, dat is Current en de onchange van de (neem ik aan) combobox.

Oh en in het algemeen, als je schrijft:

Visual Basic:

If [conditie] Then
    [variable] = True
Else
    [variable] = False
End If

Dan kun je ook gewoon

Visual Basic:

[variable] = [conditie]

doen.

[Marko_J]

Wordt OnChange niet al getriggered op het moment dat de gebruiker nog een keuze aan het maken is? Het event moet plaatsvinden nadat een waarde gekozen is, dus AfterUpdate is niet vreemd toch?

Verder, het originele stukje code lijkt mij incompleet.

Visual Basic:

If [Label__wat_] =  Then

Als [variable] is ..?.. dan [doe iets]. Het hele criterium lijkt te ontbreken..

Daarnaast, om te voorkomen dat je een eindeloze rij aan if-thens nodig gaat hebben om alle criteria op te sommen, heb je wellicht iets aan een Select Case;

Visual Basic:

Select Case [Label_wat_]
   case "gesprek"
      subtest.Visible = False
      knop1.Visible = False
   case "vergadering", "taak"
      subtest.Visible = True
      knop1.Visible = True
   case else
      subtest.Visible = False
      knop1.Visible = True
end select

[pedorus]

Marko_J schreef op dinsdag 02 november 2010 @ 10:11:
Wordt OnChange niet al getriggered op het moment dat de gebruiker nog een keuze aan het maken is? Het event moet plaatsvinden nadat een waarde gekozen is, dus AfterUpdate is niet vreemd toch?

Dan zie je het subformulier pas nadat de combobox (?) focus heeft verloren of het record is opgeslagen, dus dat lijkt me niet zo intuïtief.