Parcours de la collection forms

Version imprimable

09/04/2009, 12h46
CUCARACHA

Parcours de la collection forms

Salut,

J'essaye d'automatiser un traitement d'analyse de base access.

Application.forms.count = 0

Pourtant j'ai plusieurs dizaines de formulaires

Application.forms.count semble retourner le nombre de formulaires OUVERTS et non le nombre total de formulaires.

Connaitriez-vous une méthode pour parcourir les formulaires sans les instancier ?

D'avance merci

Laurent

Code:

CurrentProject.AllForms

De mémoire cette collection existe depuis Access 2000

Sinon il fallait passer par les containers:

qq chose du genre (non testé)
Code:

1 2 3 4 5 6 7 8 9 Dim oC as container Dim oD as document Dim db as database set db = currentdb set oc = db.containers("Forms") for each oD in oC.Documents debug.print oD.nAme next oD

09/04/2009, 14h14
CUCARACHA

J'ai un peu essayé...

Salut,

En fait j'ai essayé ça dans un premier temps mais on ne peut pas caster les objets de la collection en type Form. Du coup on a pas accès à la collection des controles à l'intérieur.

Je vais approfondir... Je vous donne le résultat un peu plus tard.

Merci pour ton aide

Laurent
09/04/2009, 17h59
mout1234

Humm...

Je crois bien que tu n'as pas dans ce cas d'autres choix que d'ouvrir en mode création les formulaires (en mode caché)....
09/04/2009, 18h34
CUCARACHA

Pour l'instant on s'arrête aux formulaires et etats

Re,

Merci pour ta réponse mais pour l'instant on va s'arrêter là, de toutes les façons, il y a tellement de boulot que je risque d'en avoir au moins pour 1 an à tout migrer.

Le programme que j'ai fait sert à faciliter l'inventaire et l'évaluation de charge...

Merci

++

Laurent

Pour pouvoir agir sur un formulaire le truc consite à l'ouvrir, voici un bout de code dont je me sers régulièrement pour modifie mes formulaires. (Valable pour Access 2002 et suivants, peut-être aussi Access 2000)

Celui-ci ajoute un ToolTips à certains de mes contrôles.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
Private Sub ModifierFrom()
    On Error GoTo Err_ModifierFrom
 
    Dim f As Form
    Dim ao As AccessObject
    Dim c As Control
 
    For Each ao In CurrentProject.AllForms
        DoCmd.OpenForm ao.Name, acDesign
        Set f = Forms(ao.Name)
 
        For Each c In f.Controls
            Select Case c.ControlSource
                Case "TriAffTexte"
                    c.ControlTipText = "Ordre d'affichage basé sur du texte"
                Case "TriAffNum"
                    c.ControlTipText = "Ordre d'affichage basé sur un nombre"
                Case Else
                    'Ne rien faire
            End Select
ControleSuivant:
        Next c
 
        DoCmd.Close acForm, f.Name, acSaveYes
    Next ao
 
 
Exit_ModifierFrom:
    Exit Sub
 
Err_ModifierFrom:
    Select Case Err.Number
 
        Case 438: 'Propriété non supportée
            Resume ControleSuivant
 
        Case Else
            Call AfficherMessErrStandard(Err)
    End Select
 
    Resume Exit_ModifierFrom
End Sub

11/04/2009, 14h00
Maxence HUBICHE

L'aide indique que la collection Forms concerne uniquement les formulaires OUVERTS dans l'application.
Et donc, pas ceux qui sont dans la base de données.

Les seules solutions pour lister les formulaires "fermés" sont AllForms et Container
20/04/2009, 08h13
CUCARACHA

Fin du job

Salut,

J'ai fini le job, j'ai laissé des champs à remplir manuellement.
Vos informations ont été très utiles
merci

Laurent