Skip to main content

AccessTr.neT


Otomatik sayı

Otomatik sayı

Çözüldü #13
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 pozitifImg-grin) 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 yararImg-grin))

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ımImg-grin

Kolay gelsin.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #14
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.
Cevapla
Çözüldü #15
Bir örnek ekledim incelerseniz.
.rar Yeni Microsoft Office Access 2007 Veritabanı.rar (Dosya Boyutu: 17,89 KB | İndirme Sayısı: 41)
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Cevapla
Çözüldü #16
Yardımlarınız için teşekkür ederim.
Cevapla
Çözüldü #17
(17/10/2013, 13:03)cttm98 yazdı: Bir örnek ekledim incelerseniz.

Örnek için teşekkürler.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #18
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.
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task