İyi Akşamlar,
Ekteki programı, lifeexciting, aobendes ve sledgeab hocalarımın ilgi ve lakaları sayesinde yapabildim. Özellikle adres kaydı ile ilgili sorunlarım çözüldü. Şu anki sorunlarım ise;
1- İlk kayıt edildiğinde bu kişinin okuduğu kitap bilgilerini kayıt etmiyor. Sonraki kayıtlarda sorun oluşturmuyor.
2- Arada boş kayıtlar oluşturuyor. Ben bunu silme sorgusu ile kısmen çözdüm, boş kayıt oluşturulması önlenebilir mi?
3- Projede her kitaptan 50 adet var. Bir kitap 50 kişiye verildiğinde 51. kişi kayıt edilmek istendiğinde bunu bir uyarı ile (Seçtiğiniz kitap tükenmiştir! gibi bir uyarı ile) engelleyebilir miyiz?
İlgilenen ve ilgilenecek arkadaşlara şimdiden teşekkür ediyorum...
-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
Sayın Mk70;
Ekte istediğiniz şekilde örneğiniz düzeltilmiştir.
Ancak tablolarınızda yapısal hatalarınız var.
Yapılmaması gereken ölümcül hatalar kısmımızı okumanızı öneririm.
Kitap adı bazı kitaplar için birden fazla yazar tarafından kullanılmış olabilir o yüzden okuyucu_bilgileri tablosuna kitap adı yerine kitap_id alanını kaydettirdim. Raporda da düzelttim.
Ancak bu konuları dikkatlice gözden geçirmenizi öneririm. Sefiller kitabı 50 kişiye teslim edildiğinden gerekli uyarıyı vermektedir.
Kolay Gelsin.
Ozan hocam kusura bakmayın siz eklerken bende eklemişim.
Kolay Gelsin.
İyi akşamlar,
Sledgab ve kur@l hocama teşekkür ederim. Kur@l hocamın yaptığı düzenlemede boş kayıt oluşturma sorunu devam ediyor.
Sledgab hocamın yaptığı düzenlemede raporda kitap adı yerine numarasını veriyordu bunu ufak bir ilave ile çözdüm.
Her ikinize de teşekkür ediyor, programın son halini ekliyorum.
Ozan hocama teşekkürler, dönüş yapıp programınızın son halini eklediğiniz için sizede hasleten teşekkür ederim Sayın Mk70.
Program hata alıyor. Kayıt saklarken hata veriyor..