Vous n'avez pas besoin d'employer SelectObject - enlever cette ligne.
Votre appel d'OpenReport n'est toujours pas correct. Vous supposant que « DriverName » est le champ emploient pour filtrer le rapport :
Avec le rst
.MoveFirst
Tandis que pas .EOF
« Rapport de salaire de personnel » de DoCmd.OpenReport, acViewPreview, « DriverName='" et. Champs (« StaffName ») et » '«
DoCmd.PrintOut
acReport de DoCmd.Close, « rapport de salaire de personnel »
.MoveNext
Wend
Finir avec