+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dcount İle Aynı Kişi Varsa Eklenmesin (/konu-dcount-ile-ayni-kisi-varsa-eklenmesin.html)
Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - ozanakkaya - 09/04/2020
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 SelectRE: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 10/04/2020
Hocam teşekkürler. Bu mükerrer ekleme olayını çözebilir miyiz?
RE: Dcount İle Aynı Kişi Varsa Eklenmesin - ozanakkaya - 10/04/2020
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.
RE: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 10/04/2020
Gogrnoid = Forms![frm_goruskisiler]!mtn_ogrenciid
sayın hocam böyle bir denetim yok formda
RE: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 10/04/2020
Tamamdır sayın hocam sorun çözülmüştür. Teşekkür ederim.