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