Discussion :

[Superpat9999]

Bonjour,
Je souhaite pouvoir lancer une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub doMenu()
    With Application.CommandBars.ActionControl
        Forms("f_Operation").doMenu .tag, .Parameter
 
        'Forms("_f_Navigation").Form([f_Operation]).doMenu .tag, .Parameter
        'Forms("_f_Navigation").Form("f_Operation").doMenu .tag, .Parameter
        'Forms("_f_Navigation")!["f_Operation"].doMenu .tag, .Parameter
        'Forms("_f_Navigation").doMenu .tag, .Parameter
    End With
End Sub

Lorsque je lance la fonction directement depuis mon formulaire "f_Operation" tout est Ok, la ligne 3 fonctionnant parfaitement.
Lorsque je la lance depuis le formulaire "_f_Navigation", j'ai le message :



Je dois encore me mélanger les pinceaux dans l'appel au sous-formulaire
Mon formulaire :



Merci de votre aide

[ONTAYG]

Bonjour,

Il faut que "f_Operation" soit ouvert pour que cela fonctionne, est-ce le cas ?

ONTAYG

[Superpat9999]

Bonjour,

Il faut que "f_Operation" soit ouvert pour que cela fonctionne, est-ce le cas ?

ONTAYG

Merci de ta réponse,
Et oui, il est ouvert puisque je clic droit dessus.

[hyperion13]

Salut
Qui'ils sont beaux les formulaires de navigation, mais ...
Il me semble que vous oubliez un contrôle dans votre syntaxe. Tous vos "sform" sont encapsulés dans un "cadre" dont le nom par défaut est SousFormulaireNavigation.

Code :

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

[Forms]![_f_Navigation]![SousFormulaireNavigation].[Form].[Controls]![f_Operation].[Form].doMenu .Tag, .Parameter

Sinon voir de ce côté

Code :

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

DoCmd.BrowseTo acBrowseToForm, "f_Operation", "_f_Navigation.SousFormulaireNavigation"

[Superpat9999]

Merci Hyperion13 de votre réponse, mais j'ai encore le problème :

Je l'ai contourné par :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub doMenu()
    Dim Parameter_a As String
    Dim tag_a As String
 
    Parameter_a = CommandBars.ActionControl.Parameter
    tag_a = CommandBars.ActionControl.tag
 
    Debug.Print tag_a
    Debug.Print Parameter_a
End Sub

Ce qui n'est pas très élégant !

[hyperion13]

Ce "cadre" est bien nommé [C]SousFormulaireNavigation[C] ?

[Superpat9999]

Non, il est nommé Formulaire Operation,
J'ai fait mon formulaire avec un contrôle d'onglets et pas un formulaire de navigation.