[AccessD] For all forms

[Gustav Brock]

Hi Arthur

It could be something like this:

<code>
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
        Next
    Next

End Function 
</code>

/gustav

-----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
    Next
Next

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