metin kutularının etiketlerinin isimleri de etiket1, etiket2,.....etiket10 olsun
buton75 tıklama olayının kodu
dilerim işinize yarar
Kod:
Private Sub Komut75_Click()
Dim DiziIsimBol() As String
Dim x As Integer
For x = 1 To 10
Me.Controls("metin" & x).Visible = False
Me.Controls("etiket" & x).Visible = False
Next x
If Nz(Me.Metin0, "") = "" Or IsNull(Me.Metin0) Then Exit Sub
DiziIsimBol = Split(Me.Metin0, "-")
For x = LBound(DiziIsimBol) To UBound(DiziIsimBol)
If x > 9 Then
MsgBox ("listedeki isim sayısı 10u aştı! sadece ilk 10 isim yazılacak")
Exit Sub
End If
Me.Controls("metin" & x + 1).Visible = True
Me.Controls("etiket" & x + 1).Visible = True
Me.Controls("metin" & x + 1) = DiziIsimBol(x)
Next x
End Sub