AccessTr.neT

Herşey yolunda

ö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