Skip to main content

AccessTr.neT


Kayıt sayısı sınırlama

Kayıt sayısı sınırlama

Çözüldü #1
İ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...
.zip proje.zip (Dosya Boyutu: 202,11 KB | İndirme Sayısı: 4)
mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
-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
.rar kütüphane_sled.rar (Dosya Boyutu: 127,75 KB | İndirme Sayısı: 18)
Cevapla
Çözüldü #3
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.
.zip kütü[email protected] (Dosya Boyutu: 200,59 KB | İndirme Sayısı: 9)
Cevapla
Çözüldü #4
İ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.
.zip kütüphane_sled2.zip (Dosya Boyutu: 211,16 KB | İndirme Sayısı: 14)
mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
Program hata alıyor. Kayıt saklarken hata veriyor..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task