AccessTr.neT

Tam Versiyon: Form Veya Rapora Barkod Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Herşey yolunda Img-grin
örnek süper ozan bey,
benim prg. entegre edersem ocx falan yalan olur
sabırsızlanıyorum... şimdiden
Merhaba, barkod oluşturken son rakamı kod kendisi atıyor. Bunun yerine sadece bizim verdiğimiz numarayı barkoda çeviremez mi? mesela; 365234856942 yazdığımızda 3652348569427 olarak barkod oluşturuyor görselide çıkıyor. Ama 3652348569427 diye yazdığımızda görseli çıkmıyor. örnekleriniz sayesinde programıma barkod ekledim ama 7000 kalem ürün var otomatik barkod numarası atamadım büyüzden tek tek de çok zor olacak benim için. Ya da hepsine bir anda barkod numarası atabileceğim bir kod var mı?
Merhaba, EAN standardındaki barkod 13 hanelidir ve 13. hane kontrol karakteridir. Siz 12 haneli barkod yazdığınızda 13. karakteri kendisi yazar.


Alıntı:EAN kendi içinde çeşitli standartlara sahiptir. EAN 13, perakende ve uluslarası satışlarda kullanılır. Sadece nümerik ve 13 haneden oluşur. İlk üç hanesi firma kodu, sonraki dört hanesi firma kodu, sonraki beş hanesi ürün kodu ve son karakter kontrol karakteridir.

Siz 365234856942 yazdığınızda, tabloya 365234856942 kaydedilir, ancak barkodda kontrol karakteri kendisi eklenir (7) ve barkoda yansıtılır. Barkod için 13 haneli kod yazamazsınız.
(31/12/2017, 15:56)exmadon yazdı: [ -> ]Ama 3652348569427 diye yazdığımızda görseli çıkmıyor.


Oluşturulacak sorguya, 13. alanı kendisi ekleyecek fonksiyon hazırlanabilir.

modüle


Function BarkodHazirla(GBarkod)

Dim GSon, GSayi, GKontrol As Integer

GSon = 0
   
If Len(GBarkod) < 12 Then

   BarkodHazirla = ""

Else
   
   For GSayi = 1 To 12
       GKontrol = Mid(GBarkod, GSayi, 1) - "0"
       If GSayi Mod 2 = 0 Then
           GSon = GSon + GKontrol * 3
       Else
           GSon = GSon + GKontrol * 1
       End If
   Next GSayi
       
   GSon = (10 - (GSon Mod 10)) Mod 10
         
   BarkodHazirla = GBarkod & Trim(Str(GSon))

End If

End Function

kodu ekleyin, sorguya da

Barkodum: BarkodHazirla([urun_barkodu])

şeklinde alan eklediğinizde, 13. kontrol basamağını kendisi ekleyerek sorguya yansıtır. Siz aramayı bu alandan yapabilirsiniz.

Yapamazsanız, Access soruları bölümüne içeriğinde gerçek veri olmayan 50-100 satırlık örnek uygulama ekleyin.
Sayın.ozanakkaya


Öncelikle Emeğinize Sağlık Çok Güzel Bir Çalışma Olmuş Teşekkürler

Paylaşmış olduğunuz Barkod Programında Tabloda Yeni Bir Sütun Açılsa [ADET] desek sütun ismine
Orda Rakamlar Girilse

1 dersek - 3 adet aynı barkod çıkarsın
2 dersek - 4 adet aynı barkod çıkarsın
3 dersek - 5 adet aynı barkod çıkarsın
4 dersek - 6 adet aynı barkod çıkarsın
5 dersek - 7 adet aynı barkod çıkarsın
6 dersek - 8 adet aynı barkod çıkarsın
7 dersek - 9 adet aynı barkod çıkarsın
8 dersek - 10 adet aynı barkod çıkarsın
9 dersek - 11 adet aynı barkod çıkarsın
10 dersek - 12 adet aynı barkod çıkarsın

Raporda Çıkart Dediğimizde Yukarda Yazdığım Şekilde Çıkarmak mümkünmü

Teşekkürler
Rapora 12 barkod ekle. Hepsi gizli olsun. Adet alanındaki veriye göre 2 fazlasını görünür yap.

Barkod denetiminin ismine göre de yapabilirsin,

if adet = 1 Then
B1.visible=True
B2.visible=True
B3.visible=True
Elseif adet 2 Then
.............

Şeklinde uzun da yazabilirsin
Sayfalar: 1 2 3 4 5