+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Barkod Kontrol Numarası Bulma (/konu-barkod-kontrol-numarasi-bulma.html)
Barkod Kontrol Numarası Bulma - husem - 15/06/2022
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]
yardımcı olabilirmisiniz?
RE: Barkod Kontrol Numarası Bulma - husem - 15/06/2022
(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,
RE: Barkod Kontrol Numarası Bulma - berduş - 15/06/2022
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