Populating combo in Access 2000

[Ig]

Hi
How to populate combo with names of all forms in the project in Access 2000?
Thanks

[Brendan Reynolds]

Private Sub Combo0_Enter()

Dim aob As AccessObject
Dim strList As String

For Each aob In CurrentProject.AllForms
strList = strList & aob.Name & ";"
Next aob
Me!Combo0.RowSourceType = "Value List"
Me!Combo0.RowSource = strList

End Sub

--
Brendan Reynolds (MVP)
"Ig" <Ig*********@sasktel.net> wrote in message
news:11*************@corp.supernews.com...

Hi
How to populate combo with names of all forms in the project in Access
2000?
Thanks

[Bob Quintal]

"Ig" <Ig*********@sasktel.net> wrote in
news:11*************@corp.supernews.com:

Hi
How to populate combo with names of all forms in the project
in Access 2000? Thanks

Set the rowsource to:
SELECT MSysObjects.Name FROM MSysObjects WHERE MSysObjects.Type=-
32768;
--
Bob Quintal

PA is y I've altered my email address.

[Tom van Stiphout]

On Wed, 2 Mar 2005 18:15:20 -0600, "Ig" <Ig*********@sasktel.net>
wrote:

The list of forms is in the corresponding Documents collection (the
list of open forms is in the Forms collection).
You build a semicolon-separated list of them, and you assign that to
the RowSource property. You set the RowSourceType to ValueList.

-Tom.

Hi
How to populate combo with names of all forms in the project in Access 2000?
Thanks

[Ig]

Thanks guys

"Ig" <Ig*********@sasktel.net> wrote in message
news:11*************@corp.supernews.com...

Hi
How to populate combo with names of all forms in the project in Access
2000?
Thanks