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

Derecelendirme: 0/5 - 0 oy
notrino

notrino

Aktif Üye*
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
Çö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



ozanakkaya

ozanakkaya

Kurucu
Oz.... Ak....
 39
 481
 12.007
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14

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ü Araç Takip kayıt sorunu IceMan7 11 1.814 13/04/2019, 00:23
Son Yorum: Cüneyt Beyazsu
Çözüldü Alt Formun Kayıt Kaynağını Kod İle Ayarlamak programmer67 35 717 09/04/2019, 13:00
Son Yorum: haliliyas
Çözüldü Kayıt Arama programmer67 1 133 13/03/2019, 16:01
Son Yorum: ozanakkaya
Çözüldü Aktif Form Kaydının Raporunu Açma mahsumyavuz 2 114 02/03/2019, 13:26
Son Yorum: mahsumyavuz
Çözüldü Yeni Formda Açma access acemisi 4 195 02/03/2019, 10:23
Son Yorum: access acemisi

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