+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yeni Kayıt Açma (/konu-yeni-kayit-acma.html)
Yeni Kayıt Açma - notrino - 10/10/2018
Tablomdaki kimlik alanı otomatik sayı değil, normal tamsayı. Ben bunu, bir buton vasıtasıyla hem yeni kayıt açma hem de yeni kimlik numarası oluşması adına aşağıdaki kod dizilimini kullanıyorum. (On Errorr Go To ları sonra koyarım) Herhangi bir problem var mı sizce? Aradan bir veri silsem bile, sonuncu kaydın kimlik numarasını bir arttırıyor. Yani aynen otomatik sayılı bir formda yeni kayıt açma işlemi gibi çalışıyor. Amacım bu zaten. İlerde bir sıkıntı çıkar mı?
Kod:
Private Sub Komut18_Click()
Dim eskikimlik As Integer
DoCmd.GoToRecord , , acLast
eskikimlik = Me.Kimlik
DoCmd.GoToRecord , , acNewRec
Me.Kimlik = eskikimlik + 1
End SubCvp: Yeni Kayıt Açma - ozanakkaya - 10/10/2018
eskikimlik as integer
docmd.runcommand accmdsaverecord
eskikimlik = dmax("kimlik";"tabloadi")
docmd.gotorecod,, acnewrec
me.kimlik=eskikimlikdaha doğru olabilir.