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.