Skip to main content

AccessTr.neT


Paket Durum Bigisini Barkod Aalanlarına da yazdırmak

Paket Durum Bigisini Barkod Aalanlarına da yazdırmak

Çözüldü #7
Bence tüm kodları case ile yapmak daha mantıklı.

Kod:
Private Sub PaketSayisi_AfterUpdate()
    Me.Koli_1 = Null
    Me.Koli_2 = Null
    Me.Koli_3 = Null
    
    Select Case PaketSayisi
    
    Case 1
    Me.Koli_1 = "1/1"
    Me.BarkodNo1 = Me.BarkodNo1 & "0101"
    
    Case 2
    Me.Koli_1 = "1/2"
    Me.Koli_2 = "2/2"
    Me.BarkodNo1 = Me.BarkodNo1 & "0102"
    Me.BarkodNo2 = Me.BarkodNo2 & "0202"
    
    Case 3
    Me.Koli_1 = "1/2"
    Me.Koli_2 = "2/2"
    Me.Koli_3 = "3/3"
    Me.BarkodNo1 = Me.BarkodNo1 & "0102"
    Me.BarkodNo2 = Me.BarkodNo2 & "0202"
    Me.BarkodNo3 = Me.BarkodNo3 & "0203"
    
    End Select
    Me.Refresh
End Sub

İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Paket Durum Bigisini Barkod Aalanlarına da yazdırmak - Yazar: mehmetdemiral - 02/09/2013, 22:43
Task