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