JanStegeman
Gebruiker
- Lid geworden
- 19 feb 2013
- Berichten
- 9
Erg bekwaam in VBA ben ik niet. Dat blijkt maar weer eens nadat ik vanavond bezig was met een formulier waarop ik een Keuzelijst met Invoervak (In access2019 "Keuzelijst" geheten) maakte (met een wizard).
Access 2019 maakt dan een 'ingebouwde macro' aan. Ik wil dat echter niet want van macro's wordt ik een beetje kriegel. Zeker in de nieuwere versies van ACCESS. Bovendien wil ik na deze actie allerlei andere gebeurtenissen laten plaatsvinden die ik niet met een MACRO wil laten gebeuren.
De ingebouwde macro maakte van mijn keuzelijst in de actie "NA bijwerken" iets met ="[ID] = " & Str(Nz([Screen].[ActiveControl];0)) waarbij het eerste record wordt gezocht dat voldoet. (werkt goed)
Ik wild dat dus ombouwen naar VBA en schreef heel moedig:
Private Sub Keuzelijst76_AfterUpdate()
Set rs = RecordsetClone
rs.FindFirst "[ID]= " & Me![Keuzelijst76]
End Sub
Kan het eenvoudiger zou je zeggen.
Maar … het werkt niet. Wat ik ook probeer het veld ID wordt niet gevonden. Ik heb nu eden uurtje geprobeerd, met allerlei varianten op een thema … het lukt me niet.
Wie geeft me een duwtje in de goede richting.
Groet,
Jan
Access 2019 maakt dan een 'ingebouwde macro' aan. Ik wil dat echter niet want van macro's wordt ik een beetje kriegel. Zeker in de nieuwere versies van ACCESS. Bovendien wil ik na deze actie allerlei andere gebeurtenissen laten plaatsvinden die ik niet met een MACRO wil laten gebeuren.
De ingebouwde macro maakte van mijn keuzelijst in de actie "NA bijwerken" iets met ="[ID] = " & Str(Nz([Screen].[ActiveControl];0)) waarbij het eerste record wordt gezocht dat voldoet. (werkt goed)
Ik wild dat dus ombouwen naar VBA en schreef heel moedig:
Private Sub Keuzelijst76_AfterUpdate()
Set rs = RecordsetClone
rs.FindFirst "[ID]= " & Me![Keuzelijst76]
End Sub
Kan het eenvoudiger zou je zeggen.
Maar … het werkt niet. Wat ik ook probeer het veld ID wordt niet gevonden. Ik heb nu eden uurtje geprobeerd, met allerlei varianten op een thema … het lukt me niet.
Wie geeft me een duwtje in de goede richting.
Groet,
Jan