Kayıt sayısı sınırlama
Tarih
12/09/2011 22:15
Konu Sahibi
mk70
Yorumlar
5
Okunma
1497
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mk70
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... K....
121
18/02/2010
37
Karaman
Ofis 2010 64 Bit
20/02/2017,11:02
Çözüldü 
Sponsor Reklam
İ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...



Ek Dosyalar
.zip   proje.zip (Dosya Boyutu: 202,11 KB / İndirme Sayısı: 4)
mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.304
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,00:25
Çözüldü 
-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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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:

Visual Basic Code
1
2
3
4
5
6
7
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



Ek Dosyalar
.rar   kütüphane_sled.rar (Dosya Boyutu: 127,75 KB / İndirme Sayısı: 17)
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çözüldü 
Sponsor Reklam
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.


Ek Dosyalar
.zip   kütüphane_kur@l.zip (Dosya Boyutu: 200,59 KB / İndirme Sayısı: 9)
Cevapla

mk70
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... K....
121
18/02/2010
37
Karaman
Ofis 2010 64 Bit
20/02/2017,11:02
Çözüldü 
İ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.



Ek Dosyalar
.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

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çözüldü 
Sponsor Reklam
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

HAKKI34
Aktif Üye
Kullanici Avatari
Aktif Üye
H.... K....
77
22/01/2009
0
İstanbul
Ofis 2010
26/03/2015,10:14
Çözüldü 
Program hata alıyor. Kayıt saklarken hata veriyor..
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Altformda Yeni Kayıt-Kaydet Vb İşlemler koruyucu 2 69 16/02/2017, 20:00 koruyucu
  Kayıt Kontrol Eksik Verileri Bulma Ve Hesaplama hknct 10 116 11/02/2017, 18:11 hknct
  Tablolara Tek Formdan Kayıt Girmek Ve Kayıtları Görmek ozer1971 5 56 09/02/2017, 13:32 atoz112
  Raporu Pdf Olarak Kayıt Etmek. m_demir 9 73 08/02/2017, 22:34 atoz112
Çözüldü bir kod ile birden fazla kayıt ekleme sfenksturk 4 1.183 31/01/2017, 12:44 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya