Kayıt sayısı sınırlama
Tarih
12/09/2011 22:15
Konu Sahibi
mk70
Yorumlar
5
Okunma
1434
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
04/11/2016,21:11
Çözüldü 
İ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.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çö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ı: 16)
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
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
04/11/2016,21:11
Çö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.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
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
  Mükerrer Kayıt Hk. Serkan Çevik 2 73 01/12/2016, 22:37 Serkan Çevik
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 225 29/11/2016, 13:49 Mesut Kaytan
  Güncelleştirme Sorgusu Çalıştırınca Kayıt Kilit Hatası Hakkında shalala 2 51 23/11/2016, 00:39 shalala
  Evrak Kayıt uygulaması için nasıl bir yol izlemeliyim talebe10 7 230 06/11/2016, 13:57 atoz112
  raporu pdf olarak kayıt etmek mehmetb84 4 123 04/11/2016, 14:22 mehmetb84


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