AccessTr.neT
Access Tabloya Kayıt Hakkında - 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ığı: Access Tabloya Kayıt Hakkında (/konu-access-tabloya-kayit-hakkinda.html)



Access Tabloya Kayıt Hakkında - akses7989 - 27/11/2017

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)


Cvp: Access Tabloya Kayıt Hakkında - ozanakkaya - 27/11/2017

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



Cvp: Access Tabloya Kayıt Hakkında - akses7989 - 27/11/2017

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