Propriedade Controls.Count (Access)
Use a propriedade Count para determinar o número de itens em uma coleção especificada. Long somente leitura.
expressão. Contar
Expressão Uma variável que representa um objeto Controls .
O exemplo a seguir usa a propriedade Count para controlar um loop que imprime informações sobre todos os formulários abertos e seus controles.
Sub Print_Form_Controls()
Dim frm As Form, intI As Integer
Dim intJ As Integer
Dim intControls As Integer, intForms As Integer
intForms = Forms.Count ' Number of open forms.
If intForms > 0 Then
For intI = 0 To intForms - 1
Set frm = Forms(intI)
Debug.Print frm.Name
intControls = frm.Count
If intControls > 0 Then
For intJ = 0 To intControls - 1
Debug.Print vbTab; frm(intJ).Name
Next intJ
Else
Debug.Print vbTab; "(no controls)"
End If
Next intI
Else
MsgBox "No open forms.", vbExclamation, "Form Controls"
End If
End Sub
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.