automatische selectie keuzelijst

[musti]

Ik heb 2 keuzelijsten.
Wanneer ik iets selecteer uit keuzelijstA dan moet automatisch de eerste regel van keuzelijstB geselecteerd worden.

Bij voorbaat bedankt

 

[OctaFish]

Er vanuit gaande dat keuzelijst B is gebaseerd op de keuze uit lijst A, en dat je de rijbron van lijst B instelt op de <Na Bijwerken> gebeurtenis van Lijst A zou je het zo kunnen doen:
Eerst nog een extra aanname: dat je Lijst B instelt met de variabele strSQL. (de query die je maakt na bijwerken van lijst A)

Je hebt dus de RecordSource van Lijst B ingesteld met:
Me.[Lijst B].Recordsource = strSQL
Me.[Lijst B].Recordsource.ReQuery

Dan kun je dit eens proberen:

Dim sEersteWaarde As String (als je een numerieke waarde terugleest, kan je e.e.a. wel aanpassen...)
With CurrentDB.OpenRecordset(strSQL)
     .MoveFirst
     sEersteWaarde = .Fields(0).Value
     .Close
End With
Me.[Lijst B].Value=sEersteWaarde