| |
|
|
| |
to: Lukas
(21.09.2009 в 17:22)
|
| | Спасибо буду изучать и пробавать! | |
| |
| |
| |
|
|
| |
to: АлексейЕ
(21.09.2009 в 17:09)
|
| | Примечание к примеру из хелпа:
Для определения только открытых форм нет надобности перебирать всю коллекцию форм проекта AllForms, с проверкой открыт ли экземпляр коллекции.
Есть коллекция открытых форм Forms.
К тому-же в коллекцию Forms попадают открытые нестандартные экземпляры класса форм, кои перебором коллекции AllForms не увидеть (определяется только один экземпляр класса формы). | |
| |
| |
| |
|
|
| |
to: Мишок
(21.09.2009 в 16:59)
|
| | Из хелпа
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
|
| |
| |
| |
| |
|
|
| |
to: Мишок
(21.09.2009 в 16:59)
|
| |
Dim frm As Form
For each frm In Forms
Debug.print frm.Name
Next
|
| |
| |
| |
| |
|
|
| |
to: Анатолий (Киев)
(21.09.2009 в 15:16)
|
| | Текущей в F1 я нашел и понял, а вот всех открытых нет :( | |
| |
| |
| |
|
|
| |
to: Мишок
(21.09.2009 в 14:32)
|
| | А текущая форма - Screen.ActiveForm.Name | |
| |
| |
| |
|
|
| |
to: Мишок
(21.09.2009 в 14:32)
|
| | коллекция Forms (F1) | |
| |
| |
| |
|
|
| | Помогите определить имя открытой формы (форм) | |
| |
| |
