Tja,

Någon som vet hur man kan kolla om en dynamiskt (run-time) skapad kontroll verkligen existerar? Den hänger ihop i en kontroll vektor.

I det här fallet är det Combobox kontroller det gäller.

Jag brukar lösa det enl denna princip

Option Explicit

Private Sub Command1_Click()
On Error Resume Next
Combo1(3).Enabled = True
If Err = 340 Then
MsgBox "finns inte"
' gör något
Err.Clear
End If
End Sub

Generell funktion som fungerar oavsett kontrolltyp:
<code>
Function IsLoaded(Find As Control, Controls As Object) As Boolean
Dim Ctrl As Control
For Each Ctrl In Controls
If Ctrl Is Find Then
IsLoaded = True
Exit For
End If
Next
End Function
</code>
Exempel:
<code>
Private Sub Form_Load()
If IsLoaded(Combo1(0), Combo1) Then
Debug.Print "Combo1(0) is loaded!"
Else
Debug.Print "Combo1(0) is NOT loaded!"
End If
If IsLoaded(Combo1(3), Combo1) Then
Debug.Print "Combo1(3) is loaded!"
Else
Debug.Print "Combo1(3) is NOT loaded!"
End If
End Sub
</code>