Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 485
  • Last Modified:

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?
0
DCRAPACCESS
Asked:
DCRAPACCESS
1 Solution
 
Rey Obrero (Capricorn1)Commented:

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
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now