Question : Loop through All forms recordsources

Hi Experts

I have about 80 forms and most of them have a recordsource. How can i get the recordsource from each form?

Answer : Loop through All forms recordsources

Sub getFormRS()
Dim objAcc As AccessObject
    On Error Resume Next
    For Each objAcc In Application.CurrentProject.AllForms
        DoCmd.OpenForm objAcc.Name, acDesign
        Debug.Print Forms(objAcc.Name).RecordSource
        DoCmd.Close acForm, frm.Name, acSaveYes
    Next objAcc

End Sub