[VBA] Rasgele Numara Üretme

beab05 · 13-12-2011, 17:55

(13-12-2011, 17:40)Enigmatic demiş ki: Selam,
Yardımlarınız için teşekkür ediyorum.
Yanlız sayı 600 ise aynen 600 yazıyor. Bana 0600 yazması lazım.

Formatı nasıl uygulamalıyım.?

format(Int ((x - y + 1) * Rnd + y),"0000")
olarak denerseniz 4 basamaklı yazar.

Enigmatic · 13-12-2011, 18:20

(13-12-2011, 17:55)Berkant Öztürk demiş ki:
(13-12-2011, 17:40)Enigmatic demiş ki: Selam,
Yardımlarınız için teşekkür ediyorum.
Yanlız sayı 600 ise aynen 600 yazıyor. Bana 0600 yazması lazım.

Formatı nasıl uygulamalıyım.?

format(Int ((x - y + 1) * Rnd + y),"0000")
olarak denerseniz 4 basamaklı yazar.

Perfect,
Teşekkür ediyorum. +1

aydın3838 · 14-12-2011, 13:29

selam
çıkan sonuçları tabloya kaydettim ve aynı çıkan rakamları saydım
belli bir kayıttan veya saymadan sonra bu çıkarılan rakamlar aynı çıkmakta
birbitrinden bağımsız benzersiz bir sayı yı nasıl oluşturabiliriz

jon206 · 14-12-2011, 16:19

mrb.lar aydın bey

Visual Basic
Public Function rastgeleno() As String
Dim s As String
Dim i As Integer
 
   s = ""
   Randomize
   For i = 1 To 15  'kaç basamaklı sayı üretecegine siz karar verin ben 15 olarak ayarladım
           s = s & CStr(Int(Rnd * 10)) 
   Next i
 
   rastgeleno = s
End Function

her sorgu çalıştığında veya formda yenilendiğinde numara üretir.
kolay gelsin.

aydın3838 · 14-12-2011, 17:24

selam sayın jon206

yine aynı numaradan oluştu
çıkan rakamın aynısı olmadan olmuyor galiba
saygılarımla

jon206 · 14-12-2011, 18:06

sayın aydın bey rnd*5 yapmışsınız veri bulmada sıkıntı yaratır ama 10 yaparsanız
ben 500 kadar veri yükledim hiç 2 rakamlaı yazmadı
rnd * 10 ve üzeri yaparsanız rast gele veriler bulmada rahatlık sağlar

rnd * 5 = bu şuna benzer dar alanda top çevirme ye benzer Smile

veya

Visual Basic
Public Function rastgeleno2(sayi As Variant) As Double
Static xrnd As Boolean
If Not xrnd Then
xrnd = True
  Randomize
End If
rastgeleno2 = Rnd()
 
End Function

rastgeleno2([alan ismi yaz])
[alan ismi yaz]=sayı veya isim alanı olabilir
birde bunu deneyiniz..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Eksik Numara Ve Mükerrer Kayıt	golf2000	0	550	24-01-2021, 19:06 Son Mesaj: golf2000
	Klasör Içindeki Evraklara Numara Verme, Büro Içi Kullanım Yrdm.	comand0	3	754	15-05-2020, 03:57 Son Mesaj: userx53
	[FORM] İlişkili alanlar ve Özel Kod Üretme	ebenli	79	7.796	08-01-2020, 01:08 Son Mesaj: ebenli
	Sorguda Tekrarlanan Kayıtlara aynı numara ile	Kars36	4	1.263	04-10-2017, 23:55 Son Mesaj: dsezgin
	[TABLO] access kimlik numara tutma	rk10	2	1.555	23-03-2016, 19:46 Son Mesaj: rk10
	[FORM] Yeni numara verdiremiyorum	mengene	4	1.928	15-03-2016, 21:29 Son Mesaj: mengene
	[VBA] Otomatik Numara Verdirme	Allback	0	1.494	02-07-2015, 17:17 Son Mesaj: Allback
	[FORM] Combobox'ta seçilen bölüme göre diğer textbox'a otomatik numara atama (bölüm bazlı)	yekta.eren06	11	9.589	24-07-2014, 20:22 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL