Objeto AllForms (Access)
La colección AllForms contiene un objeto AccessObject para cada formulario del objeto CurrentProject o CodeProject .
Comentarios
El objeto CurrentProject y CodeProject tiene una colección AllForms que contiene objetos AccessObject que describen las instancias de todos los formularios de la base de datos. Por ejemplo, puede enumerar la colección AllForms en Visual Basic para establecer o devolver los valores de las propiedades de objetos AccessObject determinados de la colección.
Haga referencia a un objeto AccessObject individual de la colección AllForms haciendo referencia al objeto por nombre o haciendo referencia a su índice dentro de la colección. Si desea hacer referencia a un objeto específico de la colección AllForms, es más conveniente hacer referencia al formulario por su nombre, dado que el índice de la colección de un formulario puede cambiar.
La colección AllForms se indiza a partir de cero. Si desea hacer referencia a un formulario por su índice, el primer formulario es AllForms(0), el segundo formulario es AllForms(1), y así sucesivamente.
Nota:
Para enumerar todos los formularios abiertos de la base de datos, use la propiedad IsLoaded de cada objeto AccessObject de la colección AllForms . A continuación, puede usar la propiedad Name de cada objeto AccessObject individual para devolver el nombre de un formulario.
Los objetos AccessObject no se pueden agregar ni eliminar de la colección AllForms.
Ejemplo:
En el ejemplo siguiente se imprime el nombre de cada objeto AccessObject abierto en la colección AllForms.
Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
En el ejemplo siguiente se muestra cómo evitar que un usuario abra un formulario determinado directamente desde el panel de navegación.
'Don't let this form be opened from the Navigator
If Not CurrentProject.AllForms(cFormUsage).IsLoaded Then
MsgBox "This form cannot be opened from the navigation pane.", _
vbInformation + vbOKOnly, "Invalid form usage"
Cancel = True
Exit Sub
End If
Propiedades
Vea también
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.