Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim kayitSayisi1 As Integer

Dim kayitSayisi2 As String



If IsNull([kitap_no]) Or IsNull([kitap_adı]) Or IsNull([kitap_yazarı]) Or IsNull([kitap_yayınevi]) Then



MsgBox "Lütfen Boş Alanları Doldurunuz!", vbExclamation, "Boş Alan Uyarısı"



'DoCmd.CancelEvent

Exit Sub

End If



If Me.Dirty = True Then



    If kayitYenimi = "Evet" Then

        

        'Kayıtlarda değişiklik yapılmışsa kitap no veya kitap adı alanları daha önce kaydedilmiş mi kontrol et

    

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

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



        If kayitSayisi1 > 0 Or kayitSayisi2 > 0 Then



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

        

            Me.Undo



        Else



            DoCmd.RunCommand acCmdSaveRecord

            MsgBox "Kitap Bilgileri Başarıyla Kaydedilmiştir!", vbInformation, "Kayıt İşlemi Bilgisi"

            Me.Liste33.Requery



        End If



    Else

    

 

        

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox "Kitap Bilgileri Başarıyla Güncellenmiştir!", vbInformation, "Güncelleme Bilgisi"

        Me.Liste33.Requery

    

    End If



Else



    MsgBox "Kayıtlarda değişiklik yapılmadığından kaydetme işlemi iptal edilmiştir!", vbInformation, "Kayıt İptal İşlemi"

    

End If