Partilhar via


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.