Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/10/2018 14:32
Konu Sahibi
notrino
Yorumlar
1
Okunma
151
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

notrino

Aktif Üye*
 170
 599
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Dün,17:21
Çözüldü 
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:
1
2
3
4
5
6
7
Private Sub Komut18_Click()
Dim eskikimlik As Integer
DoCmd.GoToRecord , , acLast
eskikimlik = Me.Kimlik
DoCmd.GoToRecord , , acNewRec
Me.Kimlik = eskikimlik + 1
End Sub



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.761
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:50

Visual Basic Code
1
2
3
4
5
6
7
eskikimlik as integer

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

docmd.gotorecod,, acnewrec
me.kimlik=eskikimlik



daha doğru olabilir.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form1 De Buton İle Form2 Den Kayıt Sil zaferlacin 9 136 18/01/2019, 20:26
Son Yorum: zaferlacin
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 528 15/01/2019, 01:05
Son Yorum: mmert06
Çözüldü Kayıt Kümesi Türleri notrino 2 89 27/12/2018, 09:18
Son Yorum: notrino
Çözüldü İlişkili Kayıtlar Olduğundan Kayıt Silinemiyor. Oğuz Türkyılmaz 2 82 24/12/2018, 22:18
Son Yorum: Oğuz Türkyılmaz
Çözüldü Kayıt Kilitleme Hakkında notrino 2 112 03/12/2018, 14:18
Son Yorum: notrino

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.