Skip to main content

AccessTr.neT


otomatik barkod numarası üretmek

otomatik barkod numarası üretmek

Çözüldü #7
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #8
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
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
Çözüldü #9
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...
Please return your positive or negative ...
Cevapla
Çözüldü #10
teşekkürler sayın power gerçekten süpersininiz
buradaki 20 ve 500 neyi ifade ediyor sayın power?
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
Çözüldü #11
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 Img-grin

örneğin: tarih = 14/01/2012 saat = 22:34:41
barkod = ( 212 01 14 22 34 41 ) 13 karakter yapıyor.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #12
sayın yandemir uygulama üzerinde örneklermisiniz ? aslında kullanılabilirse bu en mantıklısı zira zamanı geri getirmek mümkün değilImg-grin
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da