Access de Kayıt butonuna bağlı otomatik sayı atama

Tekrar merhaba arkadaş(maytaş) şimdi öncelikle tam bir isim alabilir miyim?
benim ismim mesut
dün akşam o yazıyı yazıp cevapla butonuna bastığımda sizin cevabınız ekrana yansıdı öyle rasgeldi yani tam birbiri ardına.
bu arada eğer kastettiğimi tam olarak anladıysanız seve o database ve formu ancak birlikte ekleyebilirim ayrıca bir remote control gibi programınız varsa bağlanmanıza dahi izin verebilirim!
yalnız hocam rica edecektim; bir kitap elde deyip kestirip atmayın çünkü kitap aldım kimi çıktıları aldım ama istediğini istediğin gibi bulamıyorsun o an lazım hangisi ise öğrenmeye öyle başlamak daha kolay oluyor aksi halde herşeyi bir anda öğrenmen gerekecek buda zor oluyor. Hatta daha da varsa ne tür ince ayarlar yapabilirim yapmalıyım diye bilgiler sunarsanız sevinirim ne gibi eksikler görüyorsunuz yani ayrıca sadece isimlerini yazarsanız ben araştırırım bu benim öncelikli vazifem olur eğer bulamadıklarım varsa uygulama olarak yine döner bu forum da sizlere sorarım çok güzel olur bana katılyorsanız
uygulamam ilave linktedir yalnız bütün haliyle linktedir(tablo+formları)
ilgilinerseniz teşekkür ederim. saygılar


Admin notu: Sitemize dosya eklenebiliyor. Ben dosyanızı mesajınıza ekliyorum. Mesajları hızlı cevaptan değil Cevapla butonuyla yazarsanız tüm cevaplama seçenek ve araçlarını görebilirsiniz.

Sizin örneği inceleyerek ona ado kayıt özelliği verecek kadar zamanım olmadığı için size örnek bir ado çalışması ekliyorum. Kimiz hazırladığını bilemiyorum ama ado kodları kullanarak nasıl yeni kayıtlar yapacağınızı bu örnekten öğrenebilirsiniz.

hocalarımın gösterdiği yol doğrultusunda ayrıca şu şekilde bir kullanımda gerçekleştirebilirsiniz.

ö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.