mesela bu kodun çalışması için size gerekenler  

DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "' )"

buraya girecek üç alan değil mi yani olay id öğreci id ve  görüşü alınanın adı soyadı
aynı ad ve soyada sahip öğretmen veli veya öğrenci varsa ne olacak 
inanın her üçü bile aynı anda olabilir eğer görüşü alınanı isim olarak tabloda tutacaksanız külliyyen yanlış olur
siz çerceveden seçip öğretmen veli vs diye listeyi değiştirip isime göre görüşler tablosuna eklerseniz yanlış değil facia olur
nacizene fikrim şudur
olay ve öğrenci hazır geliyor zaten diğerlerini de düzgün sade kontrollerde seçecek şekilde form kodlarını baştan yazın  
bence 
Select Case cercevesecim 
yapsını kesinlikle değiştirin

---

mesela bu select case4 de öğretmeni neden kontrol ediyorsunuz

Case 4

For Each GItem In Me.listekisiler.ItemsSelected

Gadsoyad = Me.listekisiler.Column(1, GItem)

Gogrno = Me.listekisiler.Column(0, GItem)

If DCount("gorus_id", "tbl_gorusler", "[olay_id] = " & olay_is_no & " And [ogrenci_id]= " & Gogrnoid & " And [ogretmen_id]= " & Gogretmenid) <> 0 Then

Else

        DoCmd.SetWarnings False

        Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form.Requery

        DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "' )"

        DoCmd.SetWarnings True

    End If

Next GItem

---

mesela tekrar tekrar yazdığınız bir birini aynı olan şu kodlardan birisinde ne görüyorsunuz

DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"

DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id)) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"

DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"

ikinci case de fazladan bir ")" var değil mi

---

mesela 

Me.frm_gorusu_alinanlar.Requery

bu 
end sub 
dan önce bir kez yazın yeter değil mi