Перебрать циклом формы

[R Dmitry]

Добрый день,подскажите как перебрать циклом все формы

пробую так но....

dim frm as form
for each  frm in forms
msgbox frm.name
next frm

перебирает только открытые а надо все не открывая
как быть?
Заранее спасибо

[Teslenko_EA]

Здравствуйте R Dmitry.
да действительно в коллекцию Forms попадают только открытые формы
но получить список всех форм всё-же можно, например так:

Sub ListForm()
Const sQ = "SELECT Name FROM MSysObjects WHERE Type=-32768"
Dim d As DAO.Database, r As DAO.Recordset
Set d = CurrentDb
Set r = d.OpenRecordset(sQ)
Do Until r.EOF
    Debug.Print r(0)
    'MsgBox r(0)
    r.MoveNext
Loop
r.Close
Set r = Nothing: Set d = Nothing
End Sub

Евгений.

P.S. для удобочитаемости выкладываемый код заключайте в тэги - [соde]...[/соde]

[R Dmitry]

Сообщение от Teslenko_EA

Здравствуйте R Dmitry.
да действительно в коллекцию Forms попадают только открытые формы
но получить список всех форм всё-же можно, например так:

Sub ListForm()
Const sQ = "SELECT Name FROM MSysObjects WHERE Type=-32768"
Dim d As DAO.Database, r As DAO.Recordset
Set d = CurrentDb
Set r = d.OpenRecordset(sQ)
Do Until r.EOF
    Debug.Print r(0)
    'MsgBox r(0)
    r.MoveNext
Loop
r.Close
Set r = Nothing: Set d = Nothing
End Sub

Евгений.

P.S. для удобочитаемости выкладываемый код заключайте в тэги - [соde]...[/соde]

Евгений, спасибо. Мне нужно немного не это....
может я не туда копаю
Есть форма в ней около 20 подчиненных форм
мне необходимо программно дать или убрать доступ к редактированию данных
меняю свойства (false,true)

AllowAdditions
AllowEdits
AllowDeletions

Можно конечно ручками прописать все формы и их свойства но это как то неправильно
Может еще какие нибудь варианты есть,
Ведь в Вашем случае мы получаем строковое значение имени объекта, а нужен сам объект Form

как то так
зы.... писал код выше прямо в форум поэтому и некрасивый такой

[R Dmitry]

разобрался

Sub frm_s()
Dim Frm As AccessObject
For Each Frm In CurrentProject.AllForms
Debug.Print Frm.Name
Next Frm
End Sub