Discussion :

[FRED.G]

Hello !

Alors la petite question du jour...

J'instancie un formulaire comme ceci :

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
Private contactEditor As Form
 
Private Sub OpenDetails()
'
'Ouvre le formulaire d'édition détaillé de l'entité sélectionnée, si une entité est sélectionnée
'
  If IsNumeric(Me.Liste0) Then
    Select Case Me.Liste0.Column(1)
        Case "Entreprise": Set contactEditor = New Form_ContactEntrepriseEditor
        Case "Particulier": Set contactEditor = New Form_ContactParticulierEditor
    End Select
    contactEditor.Modal=True
    contactEditor.Visible = True
    Me.Liste0.Requery
  End If
End Sub

Je m'attendais à ce que la ligne "Me.Liste0.Requery" soit exécutée après que contactEditor soit fermé, mais non, il s'exécute dans la foulée.

En revanche, si je passe par

Code :

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

DoCmd.OpenForm "ContactEntrepriseEditor", , , , , acDialog

Ca fonctionne normalement...

Je précise que j'ai déjà défini les propriété Popup et Modal manuellement en mode design, ça ne change rien.

[Toftof]

A vérifier parce que je n'en ai pas le temps avant de pouvoir me montrer affirmatif mais j'ai un affreux.
Lorsque tu crées ton objet avec "set ... New", il me semble que tu crée un objet lié à ton formulaire mais que tu n'ouvre pas pour autant celui-ci. M'est avis qu'une fois créé, il faut utiliser sa méthode "OPENFORM".

J'ssaierai de repasser d'ici la fin de journée pour voir ce qu'il en est résulté pour toi.

Bonne chance.

[FRED.G]

Salut toftof,

Merci pour ton aide, mais a priori je ne partage ni ton analyse, ni ta solution.

[Lou Pitchoun]

Salut Fred,

Tu devrais peut être mettre le

Code :

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

Me.Liste0.Requery

sur l'évènement 'Sur activé' de ton formulaire.

[FRED.G]

Tu devrais peut être mettre le

Code :

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

Me.Liste0.Requery

sur l'évènement 'Sur activé' de ton formulaire.

Nannnn... Je veux d'abord comprendre pkoi un truc qui devrait marcher marche po.

Comme solution de repli, pour l'instant, j'ai inséré un événement NeedToDispose qu'écoute le form appelant, et que je déclenche en lieu et place d'un docmd.Close dans le form appelé.

Dans l'appelant ça donne :

Code :

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

1
2
3
4
5
Private Sub EntrepriseEditor_NeedToDispose()
 
    Set EntrepriseEditor = Nothing
    Me.Liste0.Requery
End Sub

[=JBO=]

Bonjour à tous et à Fred point G

Voici l'explication du Pb.

Dans un objet Form, les propriétés Popup et Modal portent sur des aspects de fenêtrage et d'attribution du flux des entrées clavier/souris.
Ces propriétés n'ont pas d'incidence sur le flux de contrôle (exécution du code).

La méthode DoCmd.OpenForm offre une possibilité d'agir sur le flux de contrôle avec le paramètre optionnel WindowMode:=acDialog.
Dans ce cas, c'est la méthode DoCmd.OpenForm qui devient "bloquante" et gère l'attente de la fermeture du formulaire.

Conclusion, un objet Form n'implémente pas de fonctionnalité de flux de contrôle. Si le développeur ne peut pas utiliser DoCmd.OpenForm, alors il doit lui-même implémenter sa fonction d'attente-synchronisation.

=-=-=-=-=-=-=

Pour revenir à ton exemple présenté en début de discussion.

Quel est l'intérêt d'utiliser l'opérateur New sur une classe formulaire si tu n'as qu'un seul formulaire "bloquant" affiché ?

Pour ma part, j'utilise l'opérateur New seulement si j'ai besoin de gérer simultanément plusieurs instances du même formulaire.
Qu'en pense-tu ?

[FRED.G]

Bonjour =JBO= !

Voici l'explication du Pb.

Merci pour cette explication que je n'avais vraiment pas envisagé mais qui me rassure beaucoup. Je ne vois pas comment implémenter une fonction d'attente-synchronisation et je n'ai pas le temps de me pencher sur ce problème étant donné que, de toute façon, je suis obligé de gérer la destruction du form appelé dans le code du form appelant, ce qui me donne la possiblité de déplacer mon code à exécuter aprèsla fermeture du form appelé, non pas dans la procédure qui l'instancie, mais dans celle qui le détruit...

J'aurais cherché à rester dans la procédure appelante afin de limiter la durée de vie de ma variable form si je n'avais pas été contraint de déclarer cette variable au niveau module afin de m'abonner à des événements du form qu'elle référence.
Certes je crois savoir qu'en passant par des API il serait possible de gérer l'abonnement/désabonnement aux événements directement dans la procédure qui instancie le form, mais bon, je ne maîtrise pas ces API.

Pour revenir à ton exemple présenté en début de discussion.

Quel est l'intérêt d'utiliser l'opérateur New sur une classe formulaire si tu n'as qu'un seul formulaire "bloquant" affiché.

Pour ma part, j'utilise l'opérateur New seulement si j'ai besoin de gérer simultanément plusieurs instances du même formulaire.
Qu'en pense-tu ?

J'en pense que tu as raison mais mon exemple était partiel. Je te confirme que j'ai besoin d'instancier plusieurs fois la même classe, les deux étant effectivement des forms modaux (l'un est ouvert à partir de l'autre).

[Tofalu]

A l'arrache

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
Sub test()
Dim f As Form_Formulaire1
Set f = New Form_Formulaire1
 
showform f, True
 
MsgBox "fini"
End Sub
Function showform(frm As Form, Optional bdialog As Boolean)
frm.Visible = True
If bdialog Then
    Do
        DoEvents
    Loop Until Not isloaded(frm)
End If
End Function
Function isloaded(ByVal frm As Form) As Boolean
On Error GoTo err
isloaded = frm.Visible
err:
End Function

[FRED.G]

Ah carrément, un Do... Loop ??

Je sais pas pourquoi, mais une boucle pour stopper du code j'aurias juré que c'était dégueu...

Mais si toi qui le fait, ça me rassure un peu. lol

Ceci dit, comme je l'ai expliqué, ça ne change pas vraiment le problème dès lors que je veux m'abonner à des événements du form instancié.

[Tofalu]

Dans un ancien post, jbo le faisait aussi pour gérer des transactions, je lui avait fait la remarque que c'était dégueu donc comme il est le seul à te répondre, je me suis pas géné

Ceci dit, pour stopper du code comme cela, je ne voit pas d'autres moyens.

Ou alors avec des goto

[FRED.G]

Ou alors avec des goto

Ouais, un GoTo DotNet...

Dans un ancien post, jbo le faisait aussi pour gérer des transactions, je lui avait fait la remarque que c'était dégueu donc comme il est le seul à te répondre, je me suis pas géné

Pas touche à =JBO=, c'est un pote, et il est + fort que toi d'abord, na !