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