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