AccessTr.neT

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

select seçimi neyi değiştiriyor bunlarda bir birinin aynı satırlar

For Each GItem In Me.listekisiler.ItemsSelected

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

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



For Each GItem In Me.listekisiler.ItemsSelected

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

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



For Each GItem In Me.listekisiler.ItemsSelected

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

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



For Each GItem In Me.listekisiler.ItemsSelected

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

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

---

mesela görüşler tablosu sadece öğretmen görüşleri için mi
değilse tablo yapısını da ele alın

Şimdi sondan başlayayım. Bir disiplin olayında öğrenciyle ilgili görüşü alınacak kişiler
* Öğretmen
* Sınıf Öğretmeni
* Okul rehber öğretmeni ve
* veli olabilir.


Öğretmen tablosundan bunların tamamı işli zaten. Bir öğrenci için veli bilgisi, sınıf öğretmeni vs işli olduğu için çerçeve seçimde şunu çözmek lazım.
öğretmen seçiliyse ünvanı sadece öğretmen olanlar, sınıf öğretmeni seçilnce sadece o kişinin sınıf öğretmeni vs.

Bazı şeyler gereksiz evet. veli ekemek için öğretmen id sini atmak gereksiz.

bu tabloda veli veya başka bir öğrenci adı olacak mı sadece öğretmen mi olacak

Öğrenci Abdullah için;
Tabloya- Velisinin görüşü eklenebilir, sınıf öğretmeninin görüşü eklenebilir. matematik öğretmenin görüşü eklenebilir. okul rehber öğretmenin görüşü eklenebilir.Bunlar bir öğrenciye bir kere eklenebilir.
Ve bu programdaki beyan edilen görüş çağrıları her olay, öğrenci için ayrı ayı kayıt tutulacakttır.

veli görüşü kaydedilirken öğretmen_id  de var bu ne için