AccessTr.neT

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][/img]

yardımcı olabilirmisiniz?

(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][/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,

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