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.