Kod:
Private Sub Komut27_Click()
Dim a, b, f, g, h, i, j As String
Dim x, y, z As Integer
a = ""
g = ""
Dim c, d, e As Variant
c = Split(Me.urun_tanim, "/")
If Me.sayTanim.Value <= 80 Then
Me.tanim1 = Me.urun_tanim
Me.tanim2 = ""
Me.tanim3 = ""
Else
For say = LBound(c) To UBound(c)
If say = 0 Then
a = a + CStr(c(say))
b = ""
Else
a = a + "/" + CStr(c(say))
If say - 1 = 0 Then
b = b + CStr(c(say - 1))
Else
b = b + "/" + CStr(c(say - 1))
End If
End If
If (Len(a) > 80 And Len(b) <= 80) Then
Me.tanim1 = b
End If
Next
End If
'2. part başlangıcı*******************************
f = Replace(Me.urun_tanim, Me.tanim1 + "/", "")
d = Split(f, "/")
If Len(f) <= 80 Then
Me.tanim2 = f
Me.tanim3 = ""
Else
For say = LBound(d) To UBound(d)
If say = 0 Then
g = g + CStr(d(say))
h = ""
Else
g = g + "/" + CStr(d(say))
If say - 1 = 0 Then
h = h + CStr(d(say - 1))
Else
h = h + "/" + CStr(d(say - 1))
End If
End If
If (Len(g) > 80 And Len(h) <= 80) Then
Me.tanim2 = h
End If
Next
End If
'3. part başlangıcı*******************************
i = Me.tanim1 + "/" + Me.tanim2
j = Replace(Me.urun_tanim, i + "/", "")
Me.tanim3 = j
End Sub