Open het formulier frmDetailscherm in de ontwerpweergave en selecteer de zojuist gemaakte knop. Klik vervolgens in de knoppenbalk op de knop Opbouwen om het Visual Basic venster te openen. De wizard heeft al een stukje code voor de knop gegenereerd, waarin u onderstaande code moet verwerken (op dezelfde wijze als u in deel 6 hebt gedaan):
Dim stDocName As String stDocName = "rptDetailscherm"
If Me.FilterOn Then DoCmd.OpenReport stDocName, acPreview, , strFilter Na aanpassing ziet de volledige code er als volgt uit. |