Skip to main content

AccessTr.neT


Barkod Basımı Hakkında

Barkod Basımı Hakkında

#7
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
Cevapla
#8
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.
Cevapla
#9
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da