AccessTr.neT

Merhaba değerli arkadaşlar.Bir konuda yardımınıza ihtiyaç var,çözerseniz sevinirim.Sorun şu,dernekte okunması için kişilere verdğimiz kitapların takibini yapıyoruz ve saybak adlı tablo alanına form üzerinden bilgi girişi yapılıyor,girişte problem yok.
Problem aynı kişi aynı kitabı okumak üzere aldıysa bunun bilgi girişini sistem yapmasın(yani izin vermesin) ve daha önce bu şekilde yapılmış,bunları kolayca nasıl silip tek giriş haline getirebilirim yani Ahmet diye birisi 5-10 defa Sinekli Bakkal Kitabını okumak üzere aldı görünüyor,biz bunu tek kayıta düşürmek istiyoruz.Bu konuda yardımcı olabilir misiniz?yardımcı olması açısından şu bilgiyi de paylaşmayı uygun buluyorum.
kim_id= kitap verilen kişi (yani okuyucunun id'si)
kitap_becid=kitabın kendisi (yani kitabın id'si)
kitap_altbasid=kitap katagorosi (katagori id'si)

Merhaba,

kitap_becid metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyiniz.

Dim GKitap As String



GKitap = Nz(DLookup("[kitap_degerlendirid]", "tbl_baksay", "[kim_id]=" & Nz([kim_id], 0) & " and [kitap_becid] = " & Nz([kitap_becid], 0) & ""), 0)



If GKitap <> 0 Then



    MsgBox ("bu kitap daha önce aynı kişiye verilmiş")

    Me.kitap_becid = ""

    Me.kim_id.SetFocus

    Me.kitap_becid.SetFocus



End If

yardımınız için teşekkür ediyorum istediğim olmuştur.