AccessTr.neT

Bul · 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.

Bul · 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:

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 Function

Bul · 18/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.

Bul · 19/08/2011, 01:01

Arkadaşlar kodun birisini silmişim. Yenisini ekliyorum.

Bul · 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.

AccessTr.neT

Mükerrer Kayıt

Mükerrer Kayıt

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

Giriş yap

Hesap oluştur

Konu Linkleri