AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Dcount İle Aynı Kişi Varsa Eklenmesin

1 2 3 4 5 6 7 8 9 10 11
05/04/2020, 15:15

SeferŞANLI

Ş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.
05/04/2020, 15:28

accessman

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
05/04/2020, 15:36

SeferŞANLI



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
05/04/2020, 15:50

accessman

If DCount("gorus_id", "tbl_gorusler", "[olay_id] = " & olayid & " And [ogrenci_id] = " & ogreciid & " And [ogretmen_id] = " & ogretmenid & "") <> 0 Then
05/04/2020, 16:00

SeferŞANLI

(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.
05/04/2020, 16:06

accessman

Oraya kendi formda ne kullanıyorsanız onları yazacaksınız 
me.textbox.value falan filan
Mesela 5,7,9 gibi
1 2 3 4 5 6 7 8 9 10 11