U te hoeven om geen SelectObject te gebruiken - verwijder die lijn.
Uw vraag OpenReport is nog niet correct. Veronderstellend dat „DriverName“ het gebied is gebruikt u om het rapport te filtreren:
Met rst
.MoveFirst
Terwijl niet .EOF
DoCmd.OpenReport „het Rapport van het Salaris van het Personeel“, acViewPreview, „DriverName='" &. Gebieden („StaffName“) &“ '„
DoCmd.PrintOut
DoCmd.Close acReport, „het Rapport van het Salaris van het Personeel“
.MoveNext
Wend
Eind met