Прочитать на английском

Поделиться через


Объект AllForms (Access)

Коллекция AllForms содержит объект AccessObject для каждой формы в объекте CurrentProject или CodeProject .

Замечания

Объекты CurrentProject и CodeProject содержат коллекцию AllForms , содержащую объекты AccessObject , описывающие экземпляры всех форм в базе данных. Например, можно перечислить коллекцию AllForms в Visual Basic, чтобы задать или вернуть значения свойств отдельных объектов AccessObject в коллекции.

Ссылка на отдельный объект AccessObject в коллекции AllForms либо путем ссылки на объект по имени, либо путем ссылки на его индекс в коллекции. Если вы хотите ссылаться на конкретный объект в коллекции AllForms , лучше ссылаться на форму по имени, так как индекс коллекции формы может измениться.

Коллекция AllForms индексируется с нуля. Если вы ссылаетесь на форму по ее индексу, первая форма — AllForms(0), вторая — AllForms(1) и т. д.

Примечание

Чтобы получить список всех открытых форм в базе данных, используйте свойство IsLoaded каждого объекта AccessObject в коллекции AllForms . Затем можно использовать свойство Name каждого отдельного объекта AccessObject , чтобы вернуть имя формы.

Невозможно добавить или удалить объект AccessObject из коллекции AllForms .

Пример

В следующем примере выводится имя каждого открытого объекта AccessObject в коллекции 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

В следующем примере показано, как запретить пользователю открывать определенную форму непосредственно из области навигации.

'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

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.