в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:48:28Z

1 версия

Новая страница

==Loop through the documents in Forms==



<source lang="vb">

Sub exaFormsContainer()

Dim db As Database
Dim frm As Form
Dim doc As Document

Set db = CurrentDb

Debug.Print "Opened form count: " & Forms.Count
For Each frm In Forms
Debug.Print frm.Name
Next
Debug.Print

Debug.Print "Saved form count: " & db.Containers!Forms.Documents.Count
For Each doc In db.Containers!Forms.Documents
Debug.Print doc.Name
Next

End Sub
</source>

==Use the form object variable to point at each form in the Forms collection==



<source lang="vb">

Sub IterateOpenForms()
Dim frm As Form

For Each frm In Forms
"Print the name of the referenced form to the Immediate window
Debug.Print frm.Name
Next frm
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Forms/Forms - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия