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

 

[Bob Quintal]

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;

 

[Ig]

Thanks guys