Forms captions

[FloBob]

I know I can go through the forms and find there names externally but is there a way to pick out there Captions?

For Each objFRM In Application.CurrentProject.AllForms
    whatever = objfrm.caption
Next

Somthing similar to that code?... (this doesnt work btw P)

 

[dcx693]

The .AllForms collection only has a few useful properties, Caption not being one of them. You can use the Access Forms collection to get at the Caption property, but the Forms collection only contains open forms. There's got to be an easier way of doing this, but this is what I came up with:

Sub GetFormCaptions()
Dim frm As AccessObject

    For Each frm In Application.CurrentProject.AllForms
        DoCmd.OpenForm frm.Name, acNormal, , , , acHidden
        Debug.Print Forms(frm.Name).Caption
        DoCmd.Close acForm, frm.Name
    Next
End Sub