Sie brauchen nicht, SelectObject zu verwenden - diese Linie entfernen.
Ihr OpenReport Anruf ist noch nicht korrekt. , dass „DriverName“ das Feld, Sie ist annehmend, verwenden, um den Report zu filtern:
Mit rst
.MoveFirst
Während nicht .EOF
DoCmd.OpenReport „Personal-Gehalts-Report“, acViewPreview, „DriverName='" u. Felder („StaffName“) u.“ '„
DoCmd.PrintOut
DoCmd.Close acReport, „Personal-Gehalts-Report“
.MoveNext
Wend
Mit beenden