Barkod Basımı Hakkında

Hocam Düz mantıkla, komut düğmesine şu kodları yazdığımda mantığıma göre istediğimi elde etmiş oluyorum.

Private Sub Komut15_Click()

If Len(Me.sip_id) = 1 Then

onek = "00000000000"

ElseIf Len(Me.sip_id) = 2 Then

onek = "0000000000"

ElseIf Len(Me.sip_id) = 3 Then

onek = "000000000"

ElseIf Len(Me.sip_id) = 4 Then

onek = "00000000"

ElseIf Len(Me.sip_id) = 5 Then

onek = "0000000"

ElseIf Len(Me.sip_id) = 6 Then

onek = "000000"

ElseIf Len(Me.sip_id) = 7 Then

onek = "00000"

ElseIf Len(Me.sip_id) = 8 Then

onek = "0000"

End If

Me.ean13 = onek & Me.sip_id

End Sub

Merhaba, 

Dim GSayi As Integer

Dim GVeri As String



For GSayi = 1 To 12



    GVeri = 0 & GVeri

    Me.ean13 = GVeri & Me.sip_id



        If Len(Me.ean13) = 12 Then

            Exit For

        End If



Next GSayi

Şeklinde de kullanabilirsiniz.

Hocam bir sizin kodlara bakıyorum, bir de benim kodlara bakıyorum. sizin çözümlerinizde buram buram kalite kendini belli ediyor. Ellerinize sağlık. çok teşekkürler. donanımsal olarak konuya başka katkı sunacak arkadaşlar yoksa yazılım olarak problemim çözülmüştür.