Compartir a través de

Propiedad Forms.Count (Access)

  • Artículo

Utilice la propiedad Count para determinar el número de elementos de una colección especificada. Long de sólo lectura.

Sintaxis

expresión. Contar

Expresión Variable que representa un objeto Forms .

Ejemplo:

Por ejemplo, si desea determinar el número de formularios abiertos actualmente o existentes en la base de datos, usaría las siguientes cadenas de código.

' Determine the number of open forms. 
 
forms.count 
 
' Determine the number of forms (open or closed) 
' in the current database. 
 
currentproject.allforms.count

En el siguiente ejemplo se utiliza la propiedad Count para controlar un bucle que imprime información acerca de todos los formularios abiertos y sus 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.