Propriedade Forms.Count (Access)
Use a propriedade Count para determinar o número de itens em uma coleção especificada. Long somente leitura.
Sintaxe
expressão. Contar
Expressão Uma variável que representa um objeto Forms .
Exemplo
Por exemplo, se você quiser determinar o número de formulários atualmente abertos ou existentes no banco de dados, você usará as cadeias de caracteres de código a seguir.
' Determine the number of open forms.
forms.count
' Determine the number of forms (open or closed)
' in the current database.
currentproject.allforms.count
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
Suporte e comentários
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.