Rapor açtırma kodunda ogrenci_id FROM tbl_gorusler WHERE (((ogrenci_id)=" & kimo & ")) şeklinde bir kriter olamaz, on error resume next kodunu kaldır.

eklediğin koda göre

If kimo = "Rehber Öğretmen" Then



DoCmd.OpenReport "rpr_gorusrehberogretmen", acViewPreview



ElseIf kimo = "Öğretmen" Then





DoCmd.OpenReport "rpr_gorusogretmen", acViewPreview



elseif .......



.........

end if

şeklinde olmalı. Raporun kayıt kaynağındaki sorguya ölçüt olarak hangi öğretmenin açılacağını belirtmelisin. "Formdaki Rapor Butonu Tüm Kayıtları Gösteriyor" Diyenlere konusunun yardımı olabilir.