| |
|
|
| | Помогите определить имя открытой формы (форм) | |
| |
| |
|
|
| |
|
|
| | А текущая форма - Screen.ActiveForm.Name | |
| |
| |
| |
|
|
| | Текущей в F1 я нашел и понял, а вот всех открытых нет :( | |
| |
| |
| |
|
|
| |
Dim frm As Form
For each frm In Forms
Debug.print frm.Name
Next
|
| |
| |
| |
| |
|
|
| | Из хелпа
The following example prints the name of each open AccessObject object in the AllForms collection.
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
|
| |
| |
| |
| |
|
|
| | Примечание к примеру из хелпа:
Для определения только открытых форм нет надобности перебирать всю коллекцию форм проекта AllForms, с проверкой открыт ли экземпляр коллекции.
Есть коллекция открытых форм Forms.
К тому-же в коллекцию Forms попадают открытые нестандартные экземпляры класса форм, кои перебором коллекции AllForms не увидеть (определяется только один экземпляр класса формы). | |
| |
| |
| |
|
|
| | Спасибо буду изучать и пробавать! | |
| |
| |
