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