18/08/2011, 01:16
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.
18/08/2011, 01:16
18/08/2011, 02:26
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:
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:
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 Function18/08/2011, 02:47
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.
kullandığınız sayim(metin) adlı fonksiyon tanımlı değil sanırım.
19/08/2011, 01:01
Arkadaşlar kodun birisini silmişim. Yenisini ekliyorum.
19/08/2011, 02:23
Ş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.