AccessTr.neT

Bu konudaki, öğretmen veya veli ekleme olayı ile listeden çıkarma olayını farklı bir sorunuzda düzeltmiştik. Seçili öğrenciye ait Sınıf Öğretmeni ile Veli bilgilerinin gelmesi için cercevesecim isimli çerçevenin güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştiriniz.

Select Case cercevesecim

Case 1

Me.listekisiler.RowSource = "SELECT tbl_ogretmen.ogretmen_id, tbl_ogretmen.adi_soyadi AS [Adı Soyadı], tbl_ogretmen.bransı AS [Branşı], tbl_ogretmen.gorevi AS [Görevi] FROM tbl_ogretmen;"

listekisiler.Requery

Case 2

Me.listekisiler.RowSource = "SELECT tbl_ogretmen.ogretmen_id, tbl_ogretmen.adi_soyadi AS [Adı Soyadı], tbl_ogretmen.bransı AS [Branşı], tbl_ogretmen.gorevi AS [Görevi] FROM tbl_ogretmen WHERE (((tbl_ogretmen.bransı) = 'Rehberlik'))"

listekisiler.Requery



Case 3

Me.listekisiler.RowSource = "SELECT ogretmen_id, adi_soyadi AS [Adı Soyadı], reh_sınıfı AS [Rehberlik Sınıfı] FROM tbl_ogretmen WHERE (((reh_sınıfı)=[Forms]![frm_goruskisiler]![ogrenciler].[Form]![Metin174]))"

listekisiler.Requery



Case 4

Me.listekisiler.RowSource = "SELECT ogr_id, veli_adi_soyadi AS [Adı Soyadı] FROM tbl_ogrenci WHERE (((ogr_id)=[Forms]![frm_goruskisiler]![ogrenciler].[Form]![ogr_id]))"

listekisiler.Requery



End Select

Hocam teşekkürler. Bu mükerrer ekleme olayını çözebilir miyiz?

Gogrnoid = Forms![frm_goruskisiler]!mtn_ogrenciid

Gogrid = Forms![frm_goruskisiler]![ogrenciler].Form![ogr_id]



For Each GItem In Me.listekisiler.ItemsSelected

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

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

Next GItem





Select Case cercevesecim

Case 1



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



        MsgBox (Gadsoyad & " İsimli Öğretmen 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,kim) VALUES ('" & Gogrnoid & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "','Öğretmen')"

        DoCmd.SetWarnings True

    End If





Me.frm_gorusu_alinanlar.Requery

Case 2



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

MsgBox (Gadsoyad & " İsimli Rehber Öğretmen 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,kim) VALUES ('" & Gogrnoid & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "','Rehber Öğretmen')"

        DoCmd.SetWarnings True

    End If

Me.frm_gorusu_alinanlar.Requery

Case 3



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

MsgBox (Gadsoyad & " İsimli Sınıf Öğretmeni 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,kim) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "',' " & Gogrno & "','Sınıf Öğretmeni')"

        DoCmd.SetWarnings True

    End If



Me.frm_gorusu_alinanlar.Requery

Case 4



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



MsgBox (Gadsoyad & " İsimli Veli 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,kim) VALUES (' " & [Gogrnoid] & "',' " & olay_is_no & "','" & Gadsoyad & "','Veli' )"

        DoCmd.SetWarnings True

End If



Me.frm_gorusu_alinanlar.Requery





End Select

bu kodu test edin.

Gogrnoid = Forms![frm_goruskisiler]!mtn_ogrenciid

sayın hocam böyle bir denetim yok formda

Tamamdır sayın hocam sorun çözülmüştür. Teşekkür ederim.