Discussion :

[facteur]

Bonjour,

J'ai une base de donnée qui s 'ouvre à l'aide d'un menu general.
Ce menu general contient plusieurs formulaire et ETAT.
Dans ce menu general, je voulais insere un ènième formulaire qui s'ouvrait en mode TCD.
En dehors du menu general , le formulaire s'ouvre bien en TCD, Mais lorsqu 'il s'ouvre à l'aide du menu general, il est en mode formulaire .

Je suis alle dans les propriété du "menu general " et j'ai insere ce code dans l'onglet qui contient le formulaire

Code :

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

1
2
3
4
5
Private Sub OptionLabel5_Click()

DoCmd.OpenForm "monformulaire", acFormPivotChart

End Sub

mais cela ne fonctionne pas.
Le formulaire s'ouvre toujours en mode formulaire.

quelqu'un pourrait il m' aider ?

[RobiPMS]

Bonjour.

Si je comprends bien tes explications, le formulaire à afficher en TCD est inséré dans un onglet du menu général. C'est donc alors un "sous-formulaire". Si c'est bien cela, as-tu essayé cette manip :
1. Ouvrir le menu général en mode création, et afficher l'onglet où tu as inséré le formulaire (qui devient donc un sous-formulaire). Afficher les propriétés.
2. Cliquer sur ce sous-formulaire : la feuille de propriétés aura alors pour titre : Type de sélection: sous-formulaire/sous-état.
3. Puis cliquer une seconde fois sur le carré en haut et à gauche du sous-formulaire. Le type de sélection devient alors : Type de sélection : Formulaire.
Et là, tu vérifies le format d'affichage par défaut qui doit être "Tableau croisé dynamique".
Cordialement

[facteur]

Bonjour RobiPMS,

Le formulaire, qui doit s'afficher en TCD, n'est pas un sous formulaire.
Et lorsque j 'essaie de mettre en pratique tes conseils, cela ne fonctionne pas.
Peut etre que je devrais le transformer en sous formulaire pour essayer ta manip ?..

[RobiPMS]

Bonjour Facteur.

Le formulaire, qui doit s'afficher en TCD, n'est pas un sous formulaire.

Quand on insère un formulaire A dans un formulaire B, le formulaire A, quand il est dans le formulaire B, est un sous-fourmulaire. Le fait que tu l'as créé en tant que formulaire ne l'empêche pas d'être utilisé et traité comme sous-formulaire dès qu'il est inséré dans un autre formulaire. Il n'y a donc pas à le "transformer" en sous-formulaire.
Si tu as "collé" ou "glissé" ce formulaire dans un onglet de ton formulaire "Menu général" (c'est ce que j'ai cru comprendre à la lecture de ton premier post), lorsqu'il est affiché dans le menu général, il est à ce moment-là traité par Access comme "sous-formulaire". Si tu as pu faire ce que je suggérais, tu as dû voir dans la fenêtre des propriétés le "Type de sélection" et tu as pu constater qu'il était alors affiché comme "sous-formulaire" (étape 2 de mon post précédent). Mais bon, c'est de la théorie et cela ne règle pas ton problème!!! Ce qui est curieux, car lorsque je fais cela dans une de mes appli, j'ai bien le résultat attendu (sinon je ne l'aurais pas proposé!). Je vais chercher un peu et si je trouve une autre solution, je reviendrai à cette discussion.
Cordialement.

[RobiPMS]

Je reviens à cette discussion parce que je viens de voir que tu en as rouverte une autre sur le même sujet dans une autre rubrique du forum!
Évidemment, si tu as définis des constantes préalables, elles vont prendre le pas sur les propriétés définies dans le formulaire que tu ouvres de cette manière!
Vu que je n'utilise pas ce type de fonctionnement dans mes menus, je vais chipoter un peu pour voir si je trouve la solution, et je reviens si c'est le cas.
Cdlt

[RobiPMS]

Après quelques recherches, quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
if (SwitchboardID = X) and (ItemNumber = Y) Then
'pivot
DoCmd.OpenForm rs![Argument], acFormPivotChart
else
'normal
DoCmd.OpenForm rs![Argument], acNormal
end if

avec la bonne valeur de X et de Y.
En espérant avoir pu te mettre sur la voie...

[facteur]

salut Robi,

En navigant sur ce forum, je suis tombé sur une discussion qui relate ce problème de formulaire en mode TCD dans le gestionnaire du "menu general".
Et je me suis dis que plus on est à reflechir plus la solution viendra..

Merci de porter une attention a ma requete..

[facteur]

Robi,
J'ai insere ton bout de code dans la procédure
Private Function HandleButtonClick(intBtn As Integer)
mais cela ne fonctionna pas.
Mon formulaire s'affiche toujours en mode formulaire et non en TCD.

le bout de code ets le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
' Open a form in Add mode.
        Case conCmdOpenFormAdd
            DoCmd.OpenForm rs![Argument]
            If (SwitchboardID = 1) And (ItemNumber = 5) Then
            'Pivot
            DoCmd.OpenForm rs![Argument], acFormPivotTable
            Else
            'normal
            DoCmd.OpenForm rs![Argument], acNormal

je suis un peu perdu..

[facteur]

Robi,

tout est ok, cela fonctionne à merveille.
j'ai fait une ptite erreur de manip.
Ton bout de code est parfait...
merci pour tout

[RobiPMS]

OK Facteur.
Content d'avoir pu aider.
N'oublie pas de taguer puisque ça marche!
R.L.