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
#2
eskikimlik as integer

docmd.runcommand accmdsaverecord
eskikimlik = dmax("kimlik";"tabloadi")

docmd.gotorecod,, acnewrec
me.kimlik=eskikimlik


daha doğru olabilir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task