Dcount İle Aynı Kişi Varsa Eklenmesin

Dcount İle Aynı Kişi Varsa Eklenmesin - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 05/04/2020

Şimdi şöyle izah edeyim:
bir olay olduğunda olay ana sayfadan ekleniyor.

Olay şu Ahmet Hasan ile kavga etmiştir. Olaya Kemal ve Nazımda karışmıştır-görmüştür.
Şimdi olaya kişileri ekledik; Ahmet, Hasan, Kemal ve Nazım.
Bu OLAYda bir X öğretmeni Ahmet, Hasan, Kemal ve Nazım için yani hepsi için görüş beyan edebilir.
Sorun şu: Bu x Öğretmeni bu OLAY için örneğin Ahmet öğrencisi için iki kere görüş yazamaz. Başka bir olayda yine görüşünü yazabilir.

Umarım anlatabilmişimdir.

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - accessman - 05/04/2020

olay id = 5
öğreci id = 7
öğretmen id = 9
Bu tabloda bu sayılar bir kez olabilir
Bunları and ile birbirine bağlayacağız
olay id = 5 and öğreci id = 7 and öğretmen id = 9
İken count = 0 ise ekleyecek

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 05/04/2020

Evet Öyle olacak ama bu kodu DCount lamı yazacağız Dlookup lamı

Bunu şu şekilde yaptım. Ama bu sefer listede kimse yokken hata veriyor.

Gogrnoid = Forms![frm_goruskisiler]![frm_gorusu_alinanlar].Form![ogrenci_id]

Gogrid = Forms![frm_goruskisiler]![ogrenciler].Form![ogr_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("*", "tbl_gorusler", "[adi_soyadi] = '" & Gadsoyad & "' And [ogrenci_id] = " & [Gogrid] & "") <> 0 Then

        MsgBox (Gadsoyad & "Bu Kişi Daha Önce Eklenmiş !")

    Else

Son hali böyle

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - accessman - 05/04/2020

If DCount("gorus_id", "tbl_gorusler", "[olay_id] = " & olayid & " And [ogrenci_id] = " & ogreciid & " And [ogretmen_id] = " & ogretmenid & "") <> 0 Then

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - SeferŞANLI - 05/04/2020

(05/04/2020, 15:50)accessman yazdı:

If DCount("gorus_id", "tbl_gorusler", "[olay_id] = " & olayid & " And [ogrenci_id] = " & ogreciid & " And [ogretmen_id] = " & ogretmenid & "") <> 0 Then

ogreciid ogretmenid alanlarını tanımlayacak mıyız? Kod mevcut haliyle benim programda hata veriyor.

Cvp: Dcount İle Aynı Kişi Varsa Eklenmesin - accessman - 05/04/2020

Oraya kendi formda ne kullanıyorsanız onları yazacaksınız
me.textbox.value falan filan
Mesela 5,7,9 gibi