Open wederom het formulier frmDetailscherm in ontwerpweergave. Voeg een nieuwe knop toe, die hetzelfde doet als de eerder gemaakte knop. Let er op dat u voor deze knop een andere afbeelding kiest en de knop ook een andere naam geeft.
Selecteer de nieuwe knop, en open het Visual Basic-venster. De code die door de wizard is toegevoegd, is u inmiddels al bekend. Voeg onderstaande code toe. Dim stDocName As String |
stDocName = "rptDetailscherm"
DoCmd.OpenReport stDocName, acPreview, "qryFilter rptDetailscherm"
|