öncelikle tüm metin kutularını ilişkisiz yapınız.
Kaydet Butonu
dim as rs new adodb.recorset
rs.open "tablo_adı",currentproject.connection, adOpenKeyset, adLockOptimistic ' tablo ile bağlantı kuruluyor
Me.metinkutusuadi_1 = Format(DMax("tablosirano", "tablo_adı") + 1, "0") ' bu kod tablonuza bakarak en son sıra numarasını 1 arttırıyor.
If IsNull(Me.metinkutusuadi_1 ) or Me.hareket_no = "" Then Me.metinkutusuadi_1 = "1" ' tablonuzda hiç kayıt yok ise 1 numarasını veriyor.
rs.addnew ' yeni bir kayıt olacağı bildiriliyor
rs.fields("tablonun_alanadi")=me.metinkutusuadi1 ' otomatik verilecek sayı tabloya yazılacağı bildiriliyor..
rs.fields("tablonun_alanadidigeri")=me.metinkutusuadi_2 ' diğer metin kutusundaki bilgi tabloya yazılacağı bildiriliyor.
rs.update ' metin kutulrındaki bilgiler yazdırılıyor.
rs.close ' bağlantı kapatılıyor
set rs=nothing ' rs bağlantısının içi boşaltılıyor.
Ek olarak kayıt olayını ADO,DAO,SQL vb gibide yapabilirsiniz. örnekte ADO kulalanılmıştır.
Not: açıklama istediğiniz bir bölüm olur ise örnek dosya ile ilgili yapamadığınız yeri ayrı bir soru olarak sorunuz yardımcı olalaım www.accesstr.net ailesi olarak.
