Sleep in de ontwerpfase een keuzelijst op je formulier (zorg ervoor dat deze 'niet-afhankelijk is).
Vraag de eigenschappen op en kijk onder het tabblad 'Gegevens'.
Selecteer bij type rijbron "Query/Tabel" of "Lijst met waarden" en vul daaronder de lijst met waarden of een query in, zodat je de juiste gegevens in de lijst hebt staan.
Ga naar het tabblad Gebeurtenis en kie bij "Na bijwerken" voor gebeurtenisprocedure.
Klik daarna op de drie puntjes erachter en je komt in de VBS-code terecht.
Er staat:
Private Sub Keuzelijst_met_invoervak_AfterUpdate()
End Sub
Voeg het volgende toe:
Private Sub Keuzelijst_met_invoervak_AfterUpdate()
Dim ReturnedValue As String
Dim SQLString As String
ReturnedValue = [Keuzelijst_met_invoervak]
SQLString = "SELECT * FROM Tabel WHERE WAARDE=" & """" & ReturnedValue & """" & ";"
Me!Naam_SubFormulier.Form.RecordSource = SQLString
Me!Naam_SubFormulier.Form.Requery
End Sub
Voeg een subformulier in met de lay-out van alle gegevens die je op basis van de dropdown wilt weergeven en vul de naam van dat formulier in waar staat 'Naam_SubFormulier" en pas de Query aan aan je wensen.
ik hoop dat dit je verder helpt.
