bu anlattığm şekilde biraz daha emek sarfetmezseniz belki de kimse uğraşmayacak
çünkü siz her kodun her değerin nereden geldiğini bildiğiniz ve sıfırdan yazdığınız halde formu baştan ele almazsanız
hiç bilmeyen birisi dediğiniz gibi biribiriyle örüntülü bu kadar form, alt form, tablo nun içinden nasıl çıkacak
olay sadece son kodda bitmiyor
Private Sub btn_aktar_Click()
Gogrnoid = Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form![ogrenci_id]
Gogrid = Forms![frm_goruskisiler]![ogrenciler].Form![ogr_id]
Gogretmenid = Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form![ogrt_id]
Select Case cercevesecim
Case 1
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
MsgBox (Gadsoyad & "Bu Kişi Daha Önce Eklenmiş !")
Else
DoCmd.SetWarnings False
Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form.Requery
DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"
DoCmd.SetWarnings True
End If
Next GItem
Me.frm_gorusu_alinanlar.Requery
Case 2
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
MsgBox (Gadsoyad & "Bu Kişi Daha Önce Eklenmiş !")
Else
DoCmd.SetWarnings False
Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form.Requery
DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id)) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"
DoCmd.SetWarnings True
End If
Next GItem
Me.frm_gorusu_alinanlar.Requery
Case 3
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
MsgBox (Gadsoyad & "Bu Kişi Daha Önce Eklenmiş !")
Else
DoCmd.SetWarnings False
Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form.Requery
DoCmd.RunSQL "INSERT INTO tbl_gorusler (ogrenci_id,olay_id,adi_soyadi,ogretmen_id) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "' )"
DoCmd.SetWarnings True
End If
Next GItem
Me.frm_gorusu_alinanlar.Requery
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
Me.frm_gorusu_alinanlar.Requery
End Select
End Sub