-Form1 isimli formdaki tüm metin kutularını ilişkisiz yaptım.
-kitap isimlerinin kaydedildiği tabloya "Kitapno" alanı ekledim.
-Kitap adı seçildiğinde tabloya kitapno'yu kaydedecek şekilde değiştirdim.
-formdaki Ekleme sorgusunu iptal ettim. yerine

Dim rs As New ADODB.Recordset

rs.Open "okuyucu_bilgileri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew

rs("ADRES") = adress.Value

rs("MahalleAdı") = mah.Value

rs("adi") = adi.Value

rs("soyadi") = soyadi.Value

rs("tckimlikno") = tckimlikno.Value

rs("dogumtarihi") = dogumtarihi.Value

rs("CaddeAdı") = CaddeAdı.Value

rs("ev") = ev.Value

rs("İlAdı") = İlAdı.Value

rs("İlçeAdı") = İlçeAdı.Value

rs("okukitap") = okukitap.Column(2)

rs("kitapyazar") = kitapyazar



rs.Update

Set rs = Nothing

Set conn = Nothing

kodu ile tabloya kayıt ekler hale getirdim. boşkayıt sorgusunun çalışmasına gerek kalmadı.

Kitap adı açılan kutusunun güncelleştirme sonrasına yazılan kod:

Dim kitapsayisi As String

kitapyazar = okukitap.Column(1)

kitapyazar.Requery

kitapsayisi = DCount("[kimlik]", "okuyucu_bilgileri", "[okukitap]=" & Me![okukitap].Column(2))

If kitapsayisi > "50" Then

MsgBox ("Mesaj")

End If

Aynı kitap 51. eklenişinde uyarı verir.

Ayrıca, size tavsiyem tüm herşeyi bırakın ve uygulamanızı aşağıdaki konuya göre düzenleyin
Yapılmaması gereken ölümcül hatalar