Non dovete usare SelectObject - rimuovere quella linea.
La vostra chiamata di OpenReport non è ancora corretta. Ammettendolo che “DriverName„ è il campo stanno usando per filtrare il rapporto:
Con rst
.MoveFirst
Mentre non .EOF
“Rapporto di stipendio del personale„ di DoCmd.OpenReport, acViewPreview, “DriverName='" &. Campi (“StaffName„) &„ '“
DoCmd.PrintOut
acReport di DoCmd.Close, “rapporto di stipendio del personale„
.MoveNext
Wend
Concluder con