+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik sayı (/konu-otomatik-sayi--77966.html)
Cvp: Otomatik sayı - mehmetdemiral - 17/10/2013
Bunun için benim bir önerim var. Sayınızı tarih ve saat verisinden üretin. Bunun için now() ile dönen sayıları biraraya getirmeniz yeterli. Bu iş için mid, left ve right komutları işinizi görecektir. Dünya tersine dönmedikçe de bu sayının tekrarlanması mümkün değildir. Şıu an için yazarsak 17102013010952... böyle bir sayıyı bir daha ne zaman yakalayabilirsiniz ki? Mümkün değil. Hem de pozitif
) Bakın benim bunun için kullandığım fonksiyonu şöyle hazırlamıştım:
Sub sayiuret()
dim a, b, c, d, e, f, g, h as integer
a = Now()
b = Mid(a, 1, 2)
c = Mid(a, 4, 2)
d = Mid(a, 7, 4)
e = Mid(a, 12, 2)
f = Mid(a, 15, 2)
g = Mid(a, 18, 2)
h = b & c & d & e & f & g
End Sub
Dikkat edilirse değişkenlere tarih ve saat değerlerini aralarındaki iki nokta ve tek nokta değerlerini pas geçerek alıyoruz. Önce a değişkenine tarih ve saat değeri atanıyor. Daha sonra a değişkeninde yer alan ve formatı 17.10.2013 01:19:53 biçiminde olan değerler mid komutuyla elenerek, nokta işaretleri alınmadan 17102013011953 biçimine dönüştürülür. Ben bu fonksiyonu 2008 yılında bir üretim programı için hazırlamıştım. Hala da işe yarar
))Bu arada negatif değerlerden bahsetmişken, mevcut yapınızdaki o negatif değerleri aşağıdaki şekilde pozitife döndürebilirsiniz. Bunun için abs(sayi) şeklinde bir kod kullanmalısınız. Mesela -50 için Abs(sayi) komutunu kullanırsanız değer 50 olur. Bunu da bir kenara yazalım
Kolay gelsin.
Cvp: Otomatik sayı - mmmm - 17/10/2013
Belirttiğiniz Vba Kodunu nasıl kullanabilirim, kodu nereye kaydedeceğim ve nasıl kullanacağım konusunda pek bilgim yok yardımcı olursanız sevinirim.
Cvp: Otomatik sayı - KJS - 17/10/2013
Bir örnek ekledim incelerseniz.
Cvp: Otomatik sayı - mmmm - 17/10/2013
Yardımlarınız için teşekkür ederim.
Cvp: Otomatik sayı - mehmetdemiral - 17/10/2013
(17/10/2013, 13:03)cttm98 yazdı: Bir örnek ekledim incelerseniz.
Örnek için teşekkürler.
Cvp: Otomatik sayı - KJS - 17/10/2013
Ne demek hocam. Ben yazılımcı değilim ama bu siteden baya bir yardım aldım.
Kendi kendime öğrenen birisiyim burada sorulan soruları bir ödev halinde görüp çözmeye çalışıyorum. Kendimi geliştirmek için güzel bir site.