Dosyayı inceledim ve anladığım kadarıyla siz barkod numarası istemiyorsunuz. Sadece yeni bir numara üretilmesinden bahsediyorsunuz. Barkod numaraları belirli standartlara sahiptir ve rastgele üretilemez. Konuyu okuyan yeni arkadaşların kafasını karıştırabilir bu durum.

SAYIN POWER istedim ki benzer üretmesin tabi uyarması çok süper oldu ...
ama uyarmasına gerek kalmasın istedim ..di kusura bakmayın lütfen..
teşekkür ederim.

sayın alpeki, alıs dosyasında var olan barkodlar bu sistemin ürettiği barkodlardır.
bilindik ürünlerin barkodu değildir. evet amacım her seferinde yeni ürünler için barkod üretmek.
teşekkürler. kolay gelsin

Uyarmasını istemiyorsanız kodu değiştirin.

Dim Metin8 As String

20 Burasına bunu yazın

Metin8 = Format(CStr(Int(Rnd() * 9999)), "0000")



barkod12 = Me.KODU & "" & Format(CStr(Int(Rnd() * 1000)), "0000") & "" & Format([SatisNo], "0000")

Me.barkodu = barkod12 & "" & BarkodHesapla(barkod12)



If rs.EOF = True Then GoTo 500

rs.MoveFirst

Do Until rs.EOF

 If rs!barkodu = Me.barkodu Then GoTo 20 Burasına bunu yazın

Benzersiz numara buluncaya kadar devam edecektir...

teşekkürler sayın power gerçekten süpersininiz
buradaki 20 ve 500 neyi ifade ediyor sayın power?

eskiden satır numaraları kullanırdık. her satır numaralı olurdu."xxx then goto 500" olduğunda 500 nolu satıra git demek.
aynı örnekte inat ediyorum

örneğin: tarih = 14/01/2012 saat = 22:34:41
barkod = ( 212 01 14 22 34 41 ) 13 karakter yapıyor.

sayın yandemir uygulama üzerinde örneklermisiniz ? aslında kullanılabilirse bu en mantıklısı zira zamanı geri getirmek mümkün değil