Jag vill kunna få fram en controls caption men hur får man fram det på en indexerad control?

If TypeName(Me.Controls(Control.Name)) = "Object" Then
sControlname = Control.Name & "(" & Control.Index & ")"
iIndex = Control.Index
Debug.Print Control.Name(Control.Index).Caption
Debug.Print Control.Name(iIndex).Caption
Else
sControlname = Control.Name
End If

Jag vet inte riktigt vad du försöker göra men om du loopar igenom alla kontrollerna i ett formlär kan du göra så här oavsett om kontrollerna ingår i en Control Array eller inte:

    Dim ctr As Control
    
    For Each ctr In Me.Controls
        Select Case TypeName(ctr)
            Case "CheckBox", "Frame", "Label", "OptionButton"
                Debug.Print ctr.Caption
            Case Else
                Debug.Print ctr.Name
        End Select
    Next ctr

Det var ett djä... lurigt problem. Har roat mig att försöka fixa det.
Tänkte exakt som du Åsa, men ! det funkar tyvärr inte.
Jag har testat med Command1 som har ett antal index.

Jag Skall Lösa Det #¤%&!? ;-)

Efter lite kliande i hårbotten så kommer jag med ett princip förslag.
<code>
Option Explicit
Private Sub Command1_Click(Index As Integer)
'Exempel där jag har Command1 array
'Ropa på ControlCaption från någon kodrad
Call ControlCaption(Me)
End Sub
'Om du bara vill ha just den du klickar på eller den som är aktiv
'så skippa For-satsen och kör bara ett race
Private Sub ControlCaption(Frm As Form)
Dim i As Long, ctr As Control
For i = 0 To Frm.Controls.Count - 1
Set ctr = Frm.Controls(i)
On Error Resume Next
MsgBox ctr.Caption
Debug.Print ctr.Caption
' Ganska osnyggt men det funkar ju
If Err = 438 Then ' Property för ctr.Caption saknas
MsgBox ctr.Name
Debug.Print ctr.Name
End If
Next i
Set ctr = Nothing
End Sub
</code>

Kan svaret du söker vara:

Label1(0).Caption

Dim ctrl As Control
Dim X As Object
    For Each ctrl In Me.Controls
        Set X = Me.Controls(ctrl.Name)
        If X Is ctrl Then
            Debug.Print ctrl.Name
        Else
            Debug.Print ctrl.Name & "(" & ctrl.Index & ")"
        End If
    Next

Private Sub Command2_Click()
    MsgBox GetCaption("Label1", 0) ' Label1(0)
End Sub

Function GetCaption(ControlName As String, ControlIndex As Long) As String
    GetCaption = Me.Controls(ControlName)(ControlIndex).Caption
End Function

Förstod att det fanns en enkel lösning. Goooood Andreas

Tusen tack, ni är grymma!

Jag var lite otydlig men ni hjälpte mig lösa frågan.

Andreas mfl.
Märkligt att man kan skriva så här dvs 2 parantesdelar utan komma.

Kommentera gärna och och ev referens.
<b>GetCaption = Me.Controls(ControlName)(ControlIndex).Caption</b>

Det är inte så märkligt. Tänk på nästlade arrayer:

 
Dim X
    X = Array(Array(Array(Array(Array(Array(Array("Wow!")))))))
    
    MsgBox X(0)(0)(0)(0)(0)(0)(0)

    Z = rs("Name")

    Z = rs.Fields.Item("Name").Value

GetCaption = Me.Controls(ControlName)(ControlIndex).Caption

GetCaption = Me.Controls.Item(ControlName).Item(ControlIndex).Caption