Mükerrer Kayıt
Tarih
18/08/2011 01:16
Konu Sahibi
idrisy
Yorumlar
4
Okunma
1865
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



idrisy
Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
164
27/12/2008
11
Osmaniye
Ofis 2003
03/12/2016,01:50
Arkadaşlar mükerrerkayıt konusunda yaptığım örneği paylaşmak istedim. Umarım arkadaşlara yardımı olur umarım. Hem mükerrer kayıt engelleme hemde tc kimlik no doğrulama. İkisi birarada.


Ek Dosyalar
.rar   mükerrerkayitengelle.rar (Dosya Boyutu: 18,73 KB / İndirme Sayısı: 130)
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,00:14
Sayın idrisy
Yayınladığınız örnekte function ekle() fonksiyonunda kodlarda eksik var. Bu nedenle hata uyarısı alınmakta. Ben düzeltilmiş biçimini aşağıya ekledim. Siz dosyanızda bubunla ilgili değişikliği yaparak tekrar yollayınız. Bu arada sekme durağı konusunda da bir çalışma yapmalısınız. Metin kutuları sırayla değil, karışık olarak geliyor. Ayrıca sınıf tablosu olmadığı için de hata veriyor. Son olarak da nerede mükerrer kontrolu yapıldığını anlayamadım. Ayrı ayrı kayıtlarda önce Tc kimlik, sonra numara, sonra ad-soyad olarak mükerrer kayıtlar yaptım, sorun çıkmadı. Sonra da bir kaydın birebir aynını tekrar kaydettim, yine ses çıkmadı. Acaba mükerrer derken, hangi özelliğin tekrarlanmayacağını yazar mısınız.

Fonksiyonun düzeltilmiş biçimi:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function ekle()
Dim rst As DAO.Recordset

Set rst = db.OpenRecordset("SELECT * FROM tbl_ogrenciler;")
rst.AddNew
rst.Fields("ID") = IIf(Nz(DMax("ID", "tbl_ogrenciler") + 1, 0) = 0, 1, Nz(DMax("ID", "tbl_ogrenciler") + 1, 0))
rst.Fields("tckimlikno") = Left(Me.tckimlikno, 11)
rst.Fields("adisoyadi") = Me.adi
rst.Fields("okulno") = Me.okulno
rst.Fields("cinsiyeti") = Me.cinsiyeti
rst.Fields("sinifi") = Me.sinifi
rst.Fields("anneadi") = Me.anneadi
'rst.Fields("yil") = Me.yil
'rst.Fields("dosyano") = Me.dosyano
rst.Update
rst.Close
db.Close
Requery

Me.Liste10.Requery
End Function

İnadına, ille de Accesstr.net...
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,00:14
Bende tc kimlik alanında tıklayınca hata veriyor. Hala diğer dediklerim (sekme sırası ve siniflar adlı tablo) düzelmemiş.
kullandığınız sayim(metin) adlı fonksiyon tanımlı değil sanırım.
İnadına, ille de Accesstr.net...
Cevapla


idrisy
Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
164
27/12/2008
11
Osmaniye
Ofis 2003
03/12/2016,01:50
Arkadaşlar kodun birisini silmişim. Yenisini ekliyorum.


Ek Dosyalar
.rar   mükerrerkayitengelle.rar (Dosya Boyutu: 19,01 KB / İndirme Sayısı: 29)
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,00:14
Şimdiki örneğinizde daha çok kod silinmiş. Fonksiyonların hiçbiri yok ve bırakın mükerreri, normal kaydı bile yapamazsınız. BU arada tüm önerilerime de kulak tıkıyorsunuz. Neyse, ben çalışmanızı düzenleyip özüne dokunmadan çalışır hale getirdim. Bu arada hata veren yerler düzeltildi, yeni bir sını tablosu ve formu eklendi. Tckimlik alanına selstart uygulandı. Kaydetme fonksiyonu mükerrer olmama şartına bağlandı. İncelemek isteyen arkadaşlar lütfen benim eklediğim örneği inceleyiniz, İdris Bey'in örneğinin düzeltilmiş biçimidir.


Ek Dosyalar
.rar   mukerrer.rar (Dosya Boyutu: 27,41 KB / İndirme Sayısı: 133)
İnadına, ille de Accesstr.net...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Information Okullar a Diploma Kayıt Programı bayFARUK 17 8.526 09/05/2016, 10:47 nesatanc
  Trafik Kaza Kayıt Programı perisanoglu 4 1.243 26/06/2015, 01:20 C*e*l*o*y*c*e
Star Ziyaretçi - Araç Kayıt/Takip ve Tel. Rehberi Programi (Final) SCavusoglu 6 4.036 10/06/2015, 13:23 SCavusoglu
Star Dinamik Kayıt Arama, Listeleme ve Aktarma Aracı Taruz 9 3.987 25/01/2015, 21:12 yorum70
  Eğitim / Toplantı Kayıt Takip Programı SCavusoglu 6 2.773 20/01/2015, 11:25 ertungaaga


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