Otomatik Sıra Numarası Verme

Arkadaşlar Merhabalar

Örneğimde de Belirttiğim Üzere Sıra Numarasının Otomatik Olarak Gelmesini İstiyorum.Yani Ben Sıra Numarası Metin Kutusuna Hangi Rakamı Yazarsam Yazayım Her Yeni Kayda Geçtiğinde O Numaradan Artarak Devam Etmesini İstiyorum.(89566 yazdığımda Bir Sonraki Kayıt İçin 89567 Numarasını Vermesi Gibi) Yardımcı Olursanız Çok Sevinirim.

Sitemizde çok sayıda örnek var bu konuda arama yaparsanız çok daha geniş sonuçlar elde edersiniz. Örnek olarak tıklayınız.

Merhabalar Sitedeki Bir Çok Örneği İnceledim.Ancak Bana Uyan Bir Örneği Bulamadım.Gönderdiğiniz örneği de inceledim,örnekte sıra numarası 1 den başlıyor,başlangıç nurasını değiştirdiğinizde fonksiyon devre dışı kalıyor ve sıra numarası otomatik gelmiyor.İlginiz İçin Teşekkür Ederim.

Oradaki örnekteki kodlardan mantığını kendinize uyarlamanız gerekmektedir. DMax ile son numarayı elde edip 1 ile toplamanız yeterli olacaktır.

Merhaba..

Formun Geçerli Olduğu olayına bu kodu yazarak sorun giderilmiştir.

VBA Kodu
If NewRecord Then faturaSirano = DMax("FaturaSirano", "TBLFaturaBilgileri") + 1

İyi Çalışmalar.

çoklu kaytı olduğunda da sadece bir sayı artırıyor ve otomatik devam etmiyor...
diyelim ki; TBLFaturaBilgileri tablosundaki FaturaSirano=1015 olsun
her kayıt eklendiğinde faturaSirano=1016 oluyor sadece 1017,1018,1019... devam etmiyor...