+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Barkod Basımı Hakkında (/konu-barkod-basimi-hakkinda.html)
Sayfalar:
1
2
Cvp: Barkod Basımı Hakkında - hbal09 - 01/10/2018
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
Cvp: Barkod Basımı Hakkında - ozanakkaya - 01/10/2018
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.
Cvp: Barkod Basımı Hakkında - hbal09 - 01/10/2018
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.