AccessTr.neT

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

Ş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.

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

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

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

(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.

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

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

SeferŞANLI

accessman

SeferŞANLI

accessman

SeferŞANLI

accessman