Skip to main content

AccessTr.neT


Barkod Kontrol Numarası Bulma

Barkod Kontrol Numarası Bulma

Çözüldü #1
kolay gelsin arkadaşlar,
ean13 barkodda son numara olan kontrol numarasını bulup, barkod noyu tabloya kontrol koduyla birlikte kaydetmek istiyorum.
barkod no daki kontrol kodunu bulabilmek için
aşağıdaki görseldeki gibi numaraların tek ve çift olarak toplamlarını almak istiyorum.

[img][Resim: do.php?img=12003][/img]

yardımcı olabilirmisiniz?
.rar kontrol kodu.rar (Dosya Boyutu: 32,48 KB | İndirme Sayısı: 1)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
(15/06/2022, 17:50)husem yazdı: kolay gelsin arkadaşlar,
ean13 barkodda son numara olan kontrol numarasını bulup, barkod noyu tabloya kontrol koduyla birlikte kaydetmek istiyorum.
barkod no daki kontrol kodunu bulabilmek için
aşağıdaki görseldeki gibi numaraların tek ve çift olarak toplamlarını almak istiyorum.

[img][Resim: do.php?img=12003][/img]

yardımcı olabilirmisiniz?


snc = Int(CLng(Mid(Me.Barkod, 2, 1)) + CLng(Mid(Me.Barkod, 4, 1)) + CLng(Mid(Me.Barkod, 6, 1)) + CLng(Mid(Me.Barkod, 8, 1)) + CLng(Mid(Me.Barkod, 10, 1)) + CLng(Mid(Me.Barkod, 12, 1))) * 3 + CLng(Mid(Me.Barkod, 1, 1)) + CLng(Mid(Me.Barkod, 3, 1)) + CLng(Mid(Me.Barkod, 5, 1)) + CLng(Mid(Me.Barkod, 7, 1)) + CLng(Mid(Me.Barkod, 9, 1)) + CLng(Mid(Me.Barkod, 11, 1))
Me.YENIBARKOD = Me.Barkod & (Int((snc / 10) + 1) * 10) - snc

biraz uzun yol oldu belkide ama,
bu şekilde bir çözüm buldum,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#3
pek kısa sayılmaz ama denenebilir)
    For x = 1 To 11 Step 2
snc = snc + Mid(Me.Barkod, x, 1) + Mid(Me.Barkod, x + 1, 1) * 3
Next x
Me.barkod2 = Me.Barkod & (Int((snc / 10) + 1) * 10) - snc
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da