Set caption of all forms?

[ben1523]

I know in VB you can cycle through all the forms but in VBA the same code does not work (surprise surprise), does anyone have the code to go through all forms, I suppose it is just a few lines as with VB but I just can find out how to do it (this is to set the caption of all the forms).

Any help greatly apprieciated

[Ephesians]

This should do what you want in Access:

Public Sub ChangeCaption()
'_______________________________________________________________
'Change the caption of every form.
'_______________________________________________________________
     Dim docTemp As Document
     Dim conTemp As Container
     Dim frmTemp As Form
     Dim dbase As Database
     Set dbase = CurrentDb
     Set conTemp = dbase.Containers!FORMS
     For Each docTemp In conTemp.Documents
          DoCmd.OpenForm docTemp.Name, acDesign, , , , acHidden
          docTemp.Caption = "Whatever"
          DoCmd.Close acForm, docTemp.Name, acSaveYes
     Next
End Sub