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.
İnadına, ille de Accesstr.net...