Aantal comboboxen tellen

[pollekecrown]

Ik wil een vb script maken dat te gebruiken is voor meerdere formulieren. Mijn doel is om het script onafhankelijk te maken van het aantal en de naam van de comboboxen, het aantal kan namelijk per gemaakt formulier wijzigen en zo ook de naam. De comboboxen en andere elementen staan trouwens altijd onder elkaar. Om dit te realiseren heb ik twee vragen:

1) Is het mogelijk om het aantal comboboxen in een formulier te tellen?
2) Is het mogelijk op basis van een nummer te refereren aan een combobox, dus nummer 1 is de eerste combobox, nummer 2 is de tweede combobox, etc.

Kan iemand mij vertellen of dit mogelijk is en hoe het script eruit ziet?

 

[edmoor]

Tel het aantal comboboxen:

Private Sub CommandButton1_Click()
    Dim aantal As Integer
    Dim cCont As Control

    For Each cCont In Me.Controls
        If TypeName(cCont) = "ComboBox" Then
            aantal = aantal + 1
        End If
     Next cCont
     MsgBox "Aantal comboboxen: " & aantal
End Sub

Omdat cCont een Control is kan je ook controleren op cCont.Name