Discussion :

[Darkzombie]

Bonjour à tous,

J'aimerais savoir comment je peux, à partir d'un formulaire, savoir si celui-ci est un sous-formulaire (s'il a un parent donc). Je connais la propriété Parent mais si je l'appelle sans avoir un formulaire parent, le programme se plante... Je sais également que je pourrais utiliser la gestion d'erreur pour vérifier si le parent existe mais j'aimerais une autre solution si elle existe (je n'aime pas trop devoir provoquer une erreur).

Avez-vous une idée ?

Merci.

[stigma]

Question étrange, mais je n'ai peut-être pas saisi la finalité de la demande.
Si un formulaire est inclus dans un autre formulaire, c'est donc un sous-formulaire. Pareil pour les états.

[Darkzombie]

Justement, le truc, c'est que le formulaire peut être parfois un sous-formulaire et parfois un formulaire normal (donc sans parent). Du coup, les actions de ce formulaires sont différentes selon qu'il est attaché à un autre formulaire en tant que sous-formulaire ou s'il est seul... et pour ca, j'ai besoin de tester si le formulaire est oui ou non un sous-formulaire...

[ilank]

Bonjour,

essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
Dim IsSbubForm As Boolean
 
Private Sub Form_Load()
 On Error Resume Next
 IsSubForm=False 
 IsSubForm=Not (Me.Parent Is Nothing)
 err.Clear
End sub

Si la variable IsSubForm= True, le formulaire a un parent.

[Darkzombie]

Merci ilank pour ta réponse.

Ton code marche bien effectivement, par contre, ca utilise la gestion d'erreur. Je cherchais plutôt un moyen de le vérifier sans provoquer une erreur dans le cas où le parent n'existe pas. Je sais que dans ce cas ci, l'erreur est gérée correctement mais je n'aime pas avoir dans mon code quelque chose qui se vérifie par une erreur. Je cherchais un moyen de le vérifier sans utiliser cette technique justement

Mais s'il n'y a pas d'autre moyen, je ferai avec

[ilank]

Bonjour,

ok, on peut essayer en testant la collection Forms. A l'ouverture, Le formulaire principal est ajouté à la collection. En clair, si le dernier élément de la collection Forms n'est pas ton formulaire lors de son chargement, c'est qu'il est ouvert en tant que sous-formulaire.

Exemple:

Code :

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

1
2
3
4
 Dim IsSubForm as Boolean
Private Sub Form_Load()
 IsSubForm= Not (Forms(Forms.Count-1) Is Me)
End sub

[Darkzombie]

Yes !!!
Merci ilank, je n'avais absolument pas pensé à ca.

Un très grand merci