[AccessD] For all forms

Arthur Fuller fuller.artful at gmail.com
Wed Aug 4 06:39:57 CDT 2021


You Are the man! I forgot one part. I. am only interested  in combo and
list boxes. How do I specify the control type?

On Wed., Aug. 4, 2021, 6:15 a.m. Gustav Brock via AccessD, <
accessd at databaseadvisors.com> wrote:

> 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
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


More information about the AccessD mailing list