kayıt sayılarını kontrol ettiğiniz satırı aşağıdaki ile değiştirip dener misini
öncelikle kaydın yeni kayıt olup olmadığını denetliyor

kayitSayisi1 = DCount("*", "tbl_kitaplar", "kitap_no=" & kitap_no)

kayitSayisi2 = DCount("*", "tbl_kitaplar", "kitap_adı='" & kitap_adı & "'")



If NewRecord And (kayitSayisi1 Or kayitSayisi2 > 0) Then ' newrecord eğer yeni kayıtsa  



MsgBox "Bu klasör daha önce kaydedilmiş. Kaydetme işlemi iptal edilecek!", vbCritical, "Klasör Kaydetme Uyarısı"

DoCmd.CancelEvent