Skip to main content

AccessTr.neT


Yeni Kayıt Açma

Yeni Kayıt Açma

Çözüldü #1
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 Sub

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Yeni Kayıt Açma - Yazar: notrino - 10/10/2018, 14:32
Cvp: Yeni Kayıt Açma - Yazar: ozanakkaya - 10/10/2018, 14:41