lister des contrôles dans un ou plusieurs formulaires d'une autre base de données

**RGShoop** · 13/08/2007, 13h22

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

**mout1234** · 13/08/2007, 13h40

Bonjour,

A première vue, je pense que le problème vient de la collection de forms utilisée....
Forms représente la collection des formulaires déjà ouverts et non l'ensemble des forms...

J'ai repéré d'autres petites anomalies....

Essaie (non testé)

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
25
Dim TestForm As Form
Dim oForm As AccessObject
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.AllForms
                        Debug.Print oForm.Name
                        dbExt1.DoCmd.OpenForm oForm.Name, acDesign
                        Set TestForm = dbExt1.Forms(oForm.Name)
                        For Each Ctrl In TestForm.Controls
                            Debug.Print TestForm.Name & " -" & Ctrl.Name
                        Next Ctrl
                        dbExt1.DoCmd.Close acForm, TestForm.Name, acSaveNo
                     Next TestForm
 
 
'Libération des variables
dbExt1.Quit
 
Set dbExt1 = Nothing

**RGShoop** · 13/08/2007, 15h20

Merci de ta réponse,

j'avais déjà essayé avec 'allforms' seulement cela ne fonctionne pas non plus, il doit me manquer un truc pour que cela ce décoince et je n'y arrive pas ....

Tu n'aurais pas d'autres précisions sur le sujet, SVP

Merci RGShoop

**mout1234** · 13/08/2007, 16h12

Autant pour moi...

Je viens d'essayer ceci ... ça marche

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
25
26
27
28
29
30
31
 
Dim oForm As Form
Dim Ctrl As Control
Dim oAcApp As Access.Application
Dim odb As Database
Dim oDoc As Document
Dim oCt As Container
Dim oCheminApplication As String
 
Set oAcApp = New Access.Application
    oAcApp.OpenCurrentDatabase oCheminApplication, True
    Set odb = oAcApp.DBEngine(0)(0)
    oAcApp.Visible = False
 
    Set oCt = odb.Containers("Forms")
 
                    For Each oDoc In oCt.Documents
                        Debug.Print oDoc.Name
                        oAcApp.DoCmd.OpenForm oDoc.Name, acDesign
                        Set oForm = oAcApp.Forms(oDoc.Name)
                        For Each Ctrl In oForm.Controls
                            Debug.Print oForm.Name & " -" & Ctrl.Name
                        Next Ctrl
                        oAcApp.DoCmd.Close acForm, oForm.Name, acSaveNo
                     Next oDoc
 
 
'Libération des variables
oAcApp.Quit
 
Set oAcApp = Nothing