AccessTr.neT

Tam Versiyon: Paket Durum Bigisini Barkod Aalanlarına da yazdırmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba,
Örnek çalışmamda, PaketSayısı Alanına girilen sayı ile içinde sayı olan BarkodNo1, BarkodNo2,BarkodNo3 alanlarının sonuna ve boş olan Koli1,Koli2, Koli3 alanlarına bazı şartlara göre sayılar yazdırmak istiyorum.
Örneğin,
[Paket sayısı alanına 1 girersem BarkodNo1'e: "0101" ve Koli1'e: "1/1"]
[paket sayısı alanına 2 girersem BarkodNo1'e: "0102 ve Koli1'e: "1/2"
BarkodNo2'ye: "0202" ve Koli2'ye: "2/2"]
[Paket sayısı alanına 3 girersem BarkodNo1'e: "0103" ve Koli1'e: "1/3"
BarkodNo2'e: "0203" ve Koli2'ye: "2/3"
BarkodNo3'e: "0303"ve Koli3'e: "3/3"]
Yazdırmak istiyorum. Örnekte paket sayısı alanlarına girilen sayı ile koli1,koli2,koli3 alanlarını doldurabiliyorum ancak amacım Paket sayısına girilen sayı ile hem BarkodNo hem de Koli alanlarını aynı anda yukarıdaki şartlara göre doldurmak istiyorum.
Yardımcı olacak ustalara şimdiden teşekkürler...
Yukarıdaki mesajımda bazı hatalarım olduğunu fark ettim. Tekrar düzenledim son halini mesajımın. Teşekkürler
İncele...
Hocam,

İstediğim mantık doğru ancak; barkodno alanlarındaki sayıların silinmeden sonuna eklenmesini istiyorum. yani mevcut barkodNo alanlarındaki sayılar silinmeyecek sadece sonuna eklenecek. koli alanlarında sorun yok.
BarkodNo alanlarını da ürün koduna göre otomatik yazdırıyorum. Önce barkodNo yazıldığı için silinmeden bu sayıların en sağına bitişik eklensin "0101" gibi sayılar.
GS1 Barkod sisteminde 0101 gibi sayılar için soldan 01 kaçıncı paket, diğer 01 ise kaç paketten oluştuğunu belirtiyor. 0101 1 paketlik ürünün 1. pakette olduğu anlamını taşıyor.
Paket sayısının günceleme sonrasında yazılan kodlarda şu alan var:
Kod:
If Me.PaketSayisi = 1 Then
        Me.Koli_1 = "1/1"
        Me.BarkodNo1 = "0101"
          Me.BarkodNo2 = ""
          Me.BarkodNo3 = ""

BU durumda doğal olarak paket sayısı 1 olunca ordaki değer 0101 ile değişecektir. Siz o satırı şöyle yapın:

Kod:
If Me.PaketSayisi = 1 Then
          Me.BarkodNo1 = Me.BarkodNo1 & "0101"

bu durumda varolan değerin sonuna "0101" eklenecek. Bu arada alttaki 2 satırda da barkodno2 ve barkodno3 alanlarının da boş yapıldığı görülüyor. Bu satırları da silmelisiniz.
Kod:
Me.BarkodNo2 = ""
          Me.BarkodNo3 = ""

Yukardaki satırları silin veya başlarına ' işaretini koyarak etkisiz hale getirin.


Artık mantığı öğrendiğinize göre gerisini siz yaparsınız.
Sayfalar: 1 2