Ами, то проблема не е при теб, а при мен.

Не става дума за TabIndex, а за Index. Обаче не знам защо, сега като пуснах една форма, и натраках лейбълите - не виждам това свойство. Както излиза, във VBA изобщо няма свойство Index, а аз не съм знаел.

Разликите във VB и VBA не са малко. Ще трябва да попрочетем още неща по въпроса.

Ето какво сътворих сега на VB, което е удобно и за предишния ти вариант със именуваните Label1, Label2, Label3 и т.н....

Private Sub Command1_Click()

  Dim ctl As Object

  For s = 1 To 5

    For Each ctl In Form1

      If TypeOf ctl Is Label Then

        If ctl.Name = "Label" & Trim(Str(s)) Then ctl.Caption = Str(s)

      End If

    Next

  Next s

End Sub

Съдържаниет е скрито
Влезте за да го видите