Discussion :

[vodiem]

Salut à tous,

Avec un formulaire principal contenant plusieurs sous-formulaires, provenant d'un seul formulaire:
comment exécuter la procédure d'un de ses sous-formulaire? sachant que la procédure utilise des variables locales propre au sous-formulaire.

si vous avez des idées..., seule contrainte: le code ne peut se trouver dans le formulaire principale.

merci d'avance.

[Pierre Fauconnier]

Salut

Il te suffit de préfixer le nom de la procédure du nom du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Commande7_Click()
    Form_tMaisons.Test
End Sub

[Gabout]

Bonjour Vodiem,
Je suis sûr que tu as vu Comment exécuter une procédure (sub) d'un sous formulaire ? dans la ... peut être une c... mais si tu déclares tes variables en Public ?

Pierre, j't'avais pas vu...

A+

[vodiem]

salut Pierre Fauconnier et Gabout,
merci pour vos réponses.

oui j'ai bien vu la faq.
les multiples instanciations du formulaire ne permettent pas d'accéder au bon "form_formulaire".

prenons un exemple:
code pour le formulaire "SFm"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private varlocal as long
Private Sub Form_Load()
varlocal = CInt(Rnd() * 10)
debug.print varlocal
End Sub
 
Private Sub Détail_Click()
MsgBox varlocal
End Sub

le formulaire principale "Formulaire1" est constitué de plusieurs "Sfm": "Fille1", "Fille2".

comment dans la fenêtre d'exécution exécuter Détail.click() de "fille1" ou Détail.click() de "fille2"?

merci

[Pierre Fauconnier]

D'abord, tu dois créer une procédure publique qui appellera la procédure privée.

Puis tu dois jouer avec un objet formulaire

Code du sous-formulaire (form_tMaisons dans mon exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Clic()
    MsgBox Me.MaiIde
End Sub
 
Public Sub ClicPublic()
    Clic
End Sub

Code du bouton du formulaire principal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande10_Click()
    Dim oForm As Form_tMaisons
 
    Set oForm = Fille7.Form ' 1er sous-formulaire
    oForm.ClicPublic
 
End Sub
 
Private Sub Commande7_Click()
    Dim oForm As Form_tMaisons
 
    Set oForm = Fille8.Form ' 2ième sous-formulaire
    oForm.ClicPublic
End Sub

Cela t'aide-t-il?

[Pierre Fauconnier]

En complément, je viens de tester et tu peux rendre ta procédure publique, plutôt que de passer par une procédure publique, au sein du sous-formulaire. C'est encore plus simple ainsi.

[vodiem]

tu vas dire que je suis difficile mais:

le code ne peut se trouver dans le formulaire principale

pour cause: le code s'exécutera au niveau du sous-formulaire. il n'a pas connaissance de l'existence du control parent "filleX".
à moins que tu as une façon simple d'obtenir le "filleX" à partir du hWnd?

merci pour tes efforts

[Pierre Fauconnier]

Il faudrait préciser l'environnement avec lequel tu travailles.

A priori, si tu tentes de lancer la procédure d'une "instance" d'un sous-formulaire, tu sais de quelle "instance" il s'agit.

Chaque sous-formulaire placé sur le principal l'est en tant que contrôle. Ce contrôle possède une propriété Form qui pointe vers le sous-formulaire en tant que sous-formulaire. Donc, il me semble logique que tu sais vers quel contrôle tu va pointer.

Tu pourrais avoir ceci
Un formulaire appelé SousFormulaire placé deux fois en tant que sous-formulaire dans un formulaire appelé FormulairePrincipal, une fois via un contrôle Fille1, une fois via un contrôle Fille2

Le sous-formulaire possède un bouton avec le code suivant (attention, bien modifier le Private en Public)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub BoutonSousFormulaire_Click()
    MsgBox Me.MaiIde
End Sub

D'un autre formulaire, via un clic sur un bouton, tu appelles la procédure BoutonSousFormulaire_Click de chacun des sous-formulaires de FormulairePrincipal via ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
    Dim oForm As Form_SousFormulaire
 
    Set oForm = Form_FormulairePrincipal.Fille1.Form
    oForm.BoutonSousFormulaire_Click
 
    Set oForm = Form_FormulairePrincipal.Fille2.Form
    oForm.BoutonSousFormulaire_Click
End Sub

Dans mon exemple, pour que cela soit parlant, j'ai ouvert FormulairePrincipal et j'ai positionné les deux sous-formulaires sur des enregistrements différents. Le premier message affiche bien la valeur du contrôle MaiIde de Fille1 et le deuxième le MaiIde de Fille2

Est-ce vers cela que tu veux aller?

[vodiem]

permet moi d'insister Pierre Fauconnier,

j'ai très bien compris ton code mais je confirme: je n'ai pas accès à l'existence de "FilleX".

Il faudrait préciser l'environnement avec lequel tu travailles.

bon... si tu insistes...

je réécris le WndProc du formulaire qui sera utilisé comme sous-formulaire.
lorsqu'un événement se déclenche je veux déclencher un événement du formulaire associé et je n'avais pas envie de passer par l'envoie d'un message.
je n'ai donc à ce niveau que le hWnd pour identifier la fenêtre.
mais à défaut de mieux, d'après ton exemple , je viens d'entrevoir une piste pour avoir la correspondance hWnd/form en passant par un tableau initialisé à l'ouverture des sous-form.

merci.


ps: je suis ouvert à d'autres pistes...

[francishop]

Bonsoir,

Bien que je n'arrives pas à tout suivre, je vais te laisser, Cher Vodiem, l'occasion de me rendre la monnaie d'hier soir.

Avec la position des sous formulaires il doit être possible de conditionner l'exécution de la procédure de ces derniers.

Cordialement.

[vodiem]

merci francishop de ta participation

le code s'exécutant à partir du sous formulaire sans connaitre le contexte (sous form ou non) sa position ne permet pas de résoudre le pb.

sur le chargement du formulaire je construis la collection de formulaire ayant comme clef le hWnd du formulaire.
ainsi, après affectation, je peux à partir du hWnd accéder aux procédures du form.
il doit bien avoir d'autres possibilités sans collection ou tableau mais je vais qd même mettre résolu.

merci à tous.

[Pierre Fauconnier]

Que veux-tu dire par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sur le chargement du formulaire je construis la collection de formulaire ayant comme clef le hWnd du formulaire.

Pourrais-tu donner ton code?

J'entrevois une piste par la création, dans le sous-formulaire, d'une variable publique qui permettrait de l'identifier. Il suffirait alors d'une fonction qui boucle sur les sous-formulaires pour tester l'identifiant de chacun d'eux et renvoyer le bon.

[vodiem]

le code est lourd et instable et reste une particularité. il ne représente donc pas d'intérêt dans l'idée principale: accéder au fonctions (et variables) du sous form lorsqu'on ne connait pas au départ le parent et que celui-ci est instancié plusieurs fois dans un (ou plusieurs) formulaires (sous formulaires).

pour reprendre l'exemple donné: un formulaire "monform", une variable locale (déclaré public) "varlocal", une procédure "monsub" (déclaré public)
si seul le formulaire "monform" est ouvert:
form_monform.varlocal
form_monform.monsub
fonctionne correctement
si le formulaire est utilisé comme sous formulaire:
form_monform.varlocal > ne renvoie pas la bonne valeur
form_monform.monsub > s'exécute mais n'est pas correct s'il utilise varlocal
en soit logique car si "monform" est utilisé plusieurs fois comme sous formulaire: form_monform ne peut les représenter tous.

effectivement on peut y accéder par leur control:
forms("formPrincipal").Fille1.form.varlocal
forms("formPrincipal").Fille1.form.monsub

mais si on ne connait pas le parent, qui peut être, est lui même un sous form (d'un sous form...)?
donc en connaissant uniquement que l'identitifiant de la fenêtre: hWnd cela limite les possibilités...

tu as raison Pierre Fauconnier il y a bien cette solution:

une variable publique qui permettrait de l'identifier... une fonction qui boucle sur les sous-formulaires...

il suffirait de boucler sur l'ensemble des formulaires/sous-formulaires ouverts pour vérifier s'il correspond au hWnd. mais cette méthode récursive reste assez lourd.

merci pour ta persévérence.

[Pierre Fauconnier]

En fait, je ne comprends pas bien la finalité. J'aurais tendance à dire que, si tu dois utiliser des procédures ou fonctions de (sous-)formulaires hors de ces (sous-)formulaires, il faudrait les sortir des formulaires pour les mettre dans un module standard. Une autre idée serait de créer une classe perso pour chaque (sous-)formulaire ouvert et d'instancier des objets de cette classe, par exemple au sein d'une collection à laquelle tu passerais une clé (Hwnd ou autre). Tu pourrais ainsi, sans boucler, retrouver très facilement l'objet avec lequel travailler.
En utilisant, dans cette classe perso, l'objet form, tu pourrais récupérer et traiter l'ensemble des infos dudit (sous-)formulaire. Cette façon de procéder te permettrait d'utiliser facilement les variables desdits formulaires plutôt que de devoir les passer à des procédures ou fonctions externes.

Sinon, boucler sur les contrôles d'un form, de façon récursive, pour trouver tous les Hwnd de tous les (sous-)(sous-)formulaires ouverts relève de l'utopie, à mon avis.

[vodiem]

le code s'exécute dans un module standard mais là n'est pas vraiment le pb.
je n'ai pas besoin de créer une collection d'instance de class: une collection de form suffit (et c'est ce que j'ai fait pour le moment).

Sinon, boucler sur les contrôles d'un form, de façon récursive, pour trouver tous les Hwnd de tous les (sous-)(sous-)formulaires ouverts relève de l'utopie, à mon avis.

pas tant que cela:

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
32
Public Function hWndToForm(hWnd As Long, Optional fp As Form) As Form
Dim f As Form
Dim sf As Form
Dim c As Control
 
If fp Is Nothing Then
    'parcours des forms
    For Each f In Forms
        Set sf = hWndToForm(hWnd, f)
        If Not sf Is Nothing Then
            Set hWndToForm = sf
            Exit For
        End If
    Next f
Else
    'parcours du form
    If fp.hWnd = hWnd Then
        Set hWndToForm = fp
        Exit Function
    Else
        For Each c In fp.Controls
            If c.ControlType = acSubform Then
                Set sf = hWndToForm(hWnd, c.Form)
                If Not sf Is Nothing Then
                    Set hWndToForm = sf
                    Exit For
                End If
            End If
        Next c
    End If
End If
End Function

;p