show only unhidden access forms in combo box

[TrevoriousD]

Hi

I want to list my unhidden access forms, reports, in a combo box. this is the piece of code i already use and it works great but it also shows me the hidden objects. I don't know how to exclude the hidden objects.

Private Sub Form_Load()
    Call GetList
End Sub

Public Sub GetList()
    Dim Item As AccessObject

    For Each Item In CurrentProject.AllForms
        DBItem.RowSourceType = "Value List"
        DBItem.AddItem Item.Name
    Next
End Sub

Please help.

[Jim Doherty]

Hi

I want to list my unhidden access forms, reports, in a combo box. this is the piece of code i already use and it works great but it also shows me the hidden objects. I don't know how to exclude the hidden objects.

Private Sub Form_Load()
Call GetList
End Sub


Public Sub GetList()
Dim Item As AccessObject

For Each Item In CurrentProject. AllForms
DBItem.RowSourc eType = "Value List"
DBItem.AddItem Item.Name
Next
End Sub

Please help.

Welcome to Bytes :-)

For Each Item In CurrentProject.AllForms
If Application.GetHiddenAttribute(Item.Type, Item.Name) = False Then
'......do your logic code here
End if
Next

[TrevoriousD]

BRILLIANT!!!!!! It works. Thanks so much for the help.

trevoriousd

[Jim Doherty]

BRILLIANT!!!!!! It works. Thanks so much for the help.

trevoriousd

You are welcome :-)