Merhaba, 

-Frm_isletme isimli forma denetim kaynağı islt_id olan mtn_islt_id isminde metin kutusu ekle.
-Frm_isletme isimli formda, kaydet butonunun tıklandığında olayındaki

Me.listeogrenci.Requery

kodunun hemen altına

    DoCmd.SetWarnings False

    DoCmd.RunSQL "UPDATE tbl_ogrenci INNER JOIN tbl_isletme ON tbl_ogrenci.islt_id = tbl_isletme.islt_id SET tbl_ogrenci.ogrmen_id = [tbl_isletme].[ogretmen_id] WHERE (((tbl_ogrenci.islt_id)=[Forms]![Frm_isletme]![mtn_islt_id]));"

    DoCmd.SetWarnings True

kodu ekle, 

Test edip bilgi verirsiniz.