Bonjour,

J'aimerai pouvoir lister les contrôles dans des formulaires sités sur une base de données distante.

J'arrive à ouvrir la base distante, j'arrive à énumérer les formulaires mais je n'arrive pas à les lister.

Voici mon bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim TestForm As Form
Dim Ctrl As Control
Dim dbExt1 As Access.Application
 
Set dbExt1 = New Access.Application
    dbExt1.OpenCurrentDatabase oCheminApplication, True
    dbExt1.Visible = False
 
 
                    For Each TestForm In dbExt1.Forms
                        Debug.Print TestForm.Name
                        DoCmd.OpenForm dbExt1.Forms(TestForm.Name)
 
                                For Each Ctrl In TestForm.Controls
                                Debug.Print TestForm.Name & " -" & Ctrl.Name
                                Next Ctrl
 
                     Next TestForm
 
 
'Libération des variables
dbExt1.Quit
 
Set dbExt1 = Nothing
Merci de votre aide

A+ RGShoop