[AccessD] For all forms

Gustav Brock gustav at cactus.dk
Wed Aug 4 05:14:58 CDT 2021

Hi Arthur

It could be something like this:

Public Function ListControlSources()

    Dim Form    As Form
    Dim Control As Control
    On Error Resume Next
    For Each Form In Forms
        For Each Control In Form.Controls
            Debug.Print Form.Name, Control.Name, Control.RowSource

End Function 


-----Oprindelig meddelelse-----
Fra: AccessD <accessd-bounces+gustav=cactus.dk at databaseadvisors.com> På vegne af Arthur Fuller
Sendt: 4. august 2021 11:50
Til: Access Developers discussion and problem solving <accessd at databaseadvisors.com>
Emne: [AccessD] For all forms

I used to have code to do this but can't find it. Here is the algorithm.

For all forms
    For all controls in f
        ? Ctl.RowSource

Do you have such a chunk? Or at least remind me of the syntax?

More information about the AccessD mailing list