benim böyle yapma sebebim denemek için 
yeşil olanları kapattım çünkü bende referans hatası veriyordu
eğer problem sadece önceden ifade vermiş öğretmenin aynı olay ve aynı öğrenci için ifade vermemesi ise gerekli kod kesinlikle bu

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

ama diğer yerleri siz bakıp ayarlayabilirsiniz eğer hata varsa başka kısımda arayabiilirsiniz
ama sıkıntı bu satırda değil
öğretmen id si yine siz listeden seçince gelecek bende resimdeki referans hatasını verdiği için o kodları pas geçtim