+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Form Veya Rapora Barkod Ekleme (/konu-form-veya-rapora-barkod-ekleme.html)
Cvp: Barkod Denemesi - alpeki99 - 28/10/2015
Herşey yolunda
Cvp: Barkod Denemesi - karaayhan - 30/10/2015
örnek süper ozan bey,
benim prg. entegre edersem ocx falan yalan olur
sabırsızlanıyorum... şimdiden
Cvp: Form veya Rapora Barkod Ekleme - exmadon - 31/12/2017
Merhaba, barkod oluşturken son rakamı kod kendisi atıyor. Bunun yerine sadece bizim verdiğimiz numarayı barkoda çeviremez mi? mesela; 365234856942 yazdığımızda 3652348569427 olarak barkod oluşturuyor görselide çıkıyor. Ama 3652348569427 diye yazdığımızda görseli çıkmıyor. örnekleriniz sayesinde programıma barkod ekledim ama 7000 kalem ürün var otomatik barkod numarası atamadım büyüzden tek tek de çok zor olacak benim için. Ya da hepsine bir anda barkod numarası atabileceğim bir kod var mı?
Cvp: Form veya Rapora Barkod Ekleme - ozanakkaya - 31/12/2017
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 Functionkodu 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.
Cvp: Form veya Rapora Barkod Ekleme - golf2000 - 06/03/2018
Sayın.ozanakkaya
Öncelikle Emeğinize Sağlık Çok Güzel Bir Çalışma Olmuş Teşekkürler
Paylaşmış olduğunuz Barkod Programında Tabloda Yeni Bir Sütun Açılsa [ADET] desek sütun ismine
Orda Rakamlar Girilse
1 dersek - 3 adet aynı barkod çıkarsın
2 dersek - 4 adet aynı barkod çıkarsın
3 dersek - 5 adet aynı barkod çıkarsın
4 dersek - 6 adet aynı barkod çıkarsın
5 dersek - 7 adet aynı barkod çıkarsın
6 dersek - 8 adet aynı barkod çıkarsın
7 dersek - 9 adet aynı barkod çıkarsın
8 dersek - 10 adet aynı barkod çıkarsın
9 dersek - 11 adet aynı barkod çıkarsın
10 dersek - 12 adet aynı barkod çıkarsın
Raporda Çıkart Dediğimizde Yukarda Yazdığım Şekilde Çıkarmak mümkünmü
Teşekkürler
Cvp: Form veya Rapora Barkod Ekleme - ozanakkaya - 07/03/2018
Rapora 12 barkod ekle. Hepsi gizli olsun. Adet alanındaki veriye göre 2 fazlasını görünür yap.
Barkod denetiminin ismine göre de yapabilirsin,
if adet = 1 Then
B1.visible=True
B2.visible=True
B3.visible=True
Elseif adet 2 Then
.............
Şeklinde uzun da yazabilirsin