Discussion :

[hallucine]

Bonjour,
Petit problème avec un formulaire de navigation.
Mon formulaire de navigation contient plusieurs onglets avec divers formulaires et états.
Je voudrais que depuis un bouton dans un des formulaires, un état compris dans le formulaire de navigation s'affiche.
En résumé je voudrais que la sélection de l'onglet du formulaire de navigation puisse se faire directement en VBA et pas seulement en cliquant sur l'onglet.

NB :setfocus met bien le focus sur l'onglet mais n'affiche pas le formulaire ou l'état associé.

D'avance merci pour votre aide

[loufab]

Bonjour,

Pour que l'onglet s'affiche il faut affecter la valeur de la page comme ceci.

Code :

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

me.ctl0 = 2

Va à la page 3.

Personnellement j'utilise un Type enum pour remplacer les N° de page par des noms de variable. C'est plus clair pendant le dev et surtout ça évite de tout changer quand on insère ou supprime une page.

[hallucine]

Bonjour,

J'ai essayé mais j'obtiens un message d'erreur "Impossible d'attribuer une valeur à cet objet"

J'ai modifié le Me du nom du formulaire de navigation
J'ai modifié le ct10 du nom de la barre de navigation
Ce qui donne pour moi :

Code :

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

[Form_Navigation].BarreNavig = 2

Mais erreur.....

[loufab]

J'ai modifié le Me du nom du formulaire de navigation

Pourquoi ? Ton code n'est pas dans le formulaire ou se trouve l'onglet ?

Il s'agit bien d'un controle Onglet ?

[hallucine]

Non, il ne s'agit pas d'un contrôle onglet...
Il s'agit du formulaire de navigation.
Il se trouve sous "Créer" puis "Formulaire" puis "Navigation"
C'est un formulaire qui permet de parcourir les différents formulaires et états.

[loufab]

Faut que je regarde ça ce soir. Je n'ai pas 2010 sous la main actuellement.

[hallucine]

D'avance merci d'y passer du temps.
J'espère que tu trouveras le solution...

[loufab]

Pour l'instant la seule chose qui fonctionne c'est ceci.

Code :

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

1
2
Me.ContrôleNavigation0.Tabs(1).SetFocus
SendKeys "{Enter}"

Je positionne le focus sur le bouton N°2 (tabs démarre à 0 comme la majorité des items) puis j'envoi un retour chariot dans le buffer clavier qui simule l'appuie sur la touche.

Cette solution n'est pas très élégante mais en l'attente de mieux...

[hallucine]

Désolé pour l'attente...

Mais merci infiniment.. ça marche nikel !

[lmc71]

Bonjour Hallucine
Je viens de créer un formulaire navigation avec onglets horizontaux et verticaux.
Onglets horizontaux dénommés :1-2-3-4
Onglets verticaux dénommés A-B-C-D
Je voudrais, depuis un formulaire disons X, en le quittant, mettre en surbrillance l'onglet 1C.
Pourrais-tu me fournir le code que tu utilises

Code :

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

1
2
Me.ContrôleNavigation0.Tabs(1).SetFocus
SendKeys "{Enter}"

de Loufab, et comment tu l'emploies

[hyperion13]

Salut
Pour naviguer dans un form de navigation, vous devez utiliser cette méthode.

[lmc71]

Bonjour Hyperion13
J'ai essayé l'exemple donné dans le lien en le modifiant pour mon cas, mais j'ai tout faux. Je suis toujours aussi nul en vba de ce fait je patauge.
Voici ce que j'ai fait

Code :

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

1
2
3
4
5
6
DoCmd.BrowseTo ObjectType:=acBrowseToForm, _
ObjectName:="F_Const_Tabl_Joueur", _
PathToSubformControl:="6_Parti.NavigationSubform", _
WhereCondition:="", _
Page:="", _
DataMode:=acFormEdit

L'onglet de navigation horizontal correspond à 6_Parti, quant à l'onglet vertical qui ouvre le formulaire nommé F_Const_Tabl_Joueur
Quand j'exécute le code les 6 lignes sont en jaune.
Voici mon code en entier

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
Private Sub Valider_Click()
 
    If (DMax("[Pres_Dat]", "Adh_Pres_Jour", "[Pres_Dat]=date()")) Then
        MsgBox "La journée de ce jour est déjà enrgistrée", vbOKOnly, "Confirmation"
        DoCmd.GoToControl "Nul_F"
    Else
        DoCmd.OpenQuery "Ajout__Tbl_Adh_Pres_Jour", acViewNormal, acReadOnly
        DoCmd.OpenQuery "Ajout_Tbl_Cpte_Table", acViewNormal, acReadOnly
        DoCmd.OpenQuery "R1_AJ_Cotis_Pmt_Jour", acViewNormal, acEdit
        MsgBox "MAJ effectuée", vbOKOnly, "Confirmation"
        DoCmd.GoToControl "Nul_F"
    End If
 
DoCmd.BrowseTo ObjectType:=acBrowseToForm, _
ObjectName:="F_Const_Tabl_Joueur", _
PathToSubformControl:="6_Parti.NavigationSubform", _
WhereCondition:="", _
Page:="", _
DataMode:=acFormEdit
 
 
End Sub

Tout ce qui se trouve avant End If fonctionne très bien.
Quelle est la partie de code manquante où mal interprété ?
Cordialement

[hyperion13]

re,
où frm_navigation est le form principal, SousFormulaireNavigation est le nom que Microsoft utilise pour la collection de formulaires sur les différents onglets du contrôle de navigation et F_Const_Tabl_Joueur le form à afficher.

Code :

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

DoCmd.BrowseTo acBrowseToForm, "F_Const_Tabl_Joueur", "frm_navigation.SousFormulaireNavigation"

[lmc71]

Bonjour Hyperion13
Après adaptation, tout fonctionne à merveille.
Comment dois-je modifier cette ligne pour ne voir que l'onglet souhaité en surbrillance.
Je te remercie pour ta patience.
Cordialement

[hyperion13]

re
quel code ?
ce code met en surbrillance le btn de navigation

Code :

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

DoCmd.BrowseTo acBrowseToForm, "F_Const_Tabl_Joueur", "frm_navigation.SousFormulaireNavigation"

sinon s'il faut vraiment

Code :

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

1
2
Forms("frm_Navigation").Controls("ContrôleNavigation1").Controls("BoutonNavigation11").SetFocus
SendKeys "{Enter}"

[lmc71]

Bonjour Hyperion13
Le premier code

Code :

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

DoCmd.BrowseTo acBrowseToForm, "F_Const_Tabl_Joueur", "Formulaire de navigation.SousFormulaireNavigation"

ne met pas en surbrillance le volet désiré en l'occurence F_Const_Tabl_Joueur, mais ouvre en grand format le formulaire F_Const_Tabl_Joueur.
Quant au second code (le dernier)

Code :

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

1
2
Forms("frm_Navigation").Controls("ContrôleNavigation1").Controls("BoutonNavigation11").SetFocus
SendKeys "{Enter}"

Je ne trouve pas de "ContrôleNavigationX" dans mon formulaire "Formulaire de Nagigation".
Les volets horizontaux porte les noms de : BoutonNavigation7 - BoutonNavigation9 - BoutonNavigation11 - BoutonNavigation13 et BoutonNavigation15, pour les volets 1-2-3-4-5
Pour le volet horizontal n° 4 (BoutonNavigation13) le nom des 3 volets verticaux sont : A = BoutonNavigation7 - B = BoutonNavigation9 - C = BoutonNavigation11
Pour le volet horizontal n° 5 (BoutonNavigation15) le nom des 3 volets verticaux sont : A = Bt_Pres - B = Bt_Tbl - C = Bt_PO. C'est cette ligne sur laquelle je voudrais travailler.
J'ai remplacé ton code par le suivant

Code :

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

1
2
Forms("Formulaire de navigation").Controls("BoutonNavigation15").Controls("Bt_Tbl").SetFocus
SendKeys "{Enter}"

Il ne fonctionne pas et met les 2 lignes en jaune.
D'où vient "ContrôleNavigationX"
Cordialement

[hyperion13]

re,
ContrôleNavigation? est le nom que Microsoft utilise pour la collection de BoutonNavigation?? horizontaux et/ou verticaux
Je ne sais pas ce que vous entendez par "ne met en surbrillance le volet désiré ...", mais chaque bouton de navigation plan vertical et/ou horizon est en surbrillance dès lors que l'on clique dessus pour charger le form qu'il contient.
Qu'on utilise DoCmd.BrowseTo ou SetFocus/SendKeys, le bouton de navigation passe en surbrillance. Où alors un truc m'échappe.

[lmc71]

Re Hyperion13
Je te joins 3 photos :
La première est le formulaire initial avec les volets 5A en surbrillance.
Lorsque je clique sur Valider où se trouve le code, c'est la Photo n° 2 qui devrait apparaitre
, mais c'est la photo n° 3 qui apparait après l'utilisation du code

Code :

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

DoCmd.BrowseTo acBrowseToForm, "F_Const_Tabl_Joueur", "Formulaire de navigation.SousFormulaireNavigation"

La 3ème photo représente l'ouverture complète du formulaire F_Const_Tabl
Pour ce qui est du deuxième code je ne peux pas l'utiliser

Code :

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

1
2
Forms("Formulaire de navigation").Controls("BoutonNavigation15").Controls("Bt_Tbl").SetFocus
SendKeys "{Enter}"

Je sais que le fait de cliquer sur le boutonNavigation le met en surbrillance, et ouvre le sousFourmulairNavigation qui lui est dédié.
Je ne sais pas comment t'expliquer, mais c'est le résultat de la photo n° 2 que je souhaiterais obtenir.
Si tu veux je peux te mettre les même photos en mode création.
Cordialement

[hyperion13]

re,
vous indiquez dans votre Post#10 que :

... Je viens de créer un formulaire navigation avec onglets horizontaux et verticaux.
Onglets horizontaux dénommés :1-2-3-4
Onglets verticaux dénommés A-B-C-D ...

Sauf que si on observe la 1ère img Post#18, ce n'est pas ça du tout ! Vous avez créé un form de navigation avec des onglets horizontaux dans lequel vous avez inséré un autre form de navigation avec des onglets verticaux ! Sinon, la configuration serait comme l'img1 ci-dessous !
Dans votre cas img2

Code :

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

DoCmd.BrowseTo acBrowseToForm, "frm_v2", "frm_h_nav.SousFormulaireNavigation>frm_v_nav.SousFormulaireNavigation"

[lmc71]

Bonjour Hyperion13
J'ai écrit une erreur en disant onglet horizontaux 1-2-3-4 et A-B-C-D c'était pour donner une image mais le formulaire de navigation principale a été construit en une seule fois de la façon suivante.
J'ai construit les sous formulaireNatigation verticaux avec les noms suivants :
1 = formulaire 1_Adh qui inclut trois formulaires : F_Adh - F_Adh_Depart et F_Adh_Supp ce n° 1 représente l'onglet Adhérent
2 = formulaire 2_Bureau qui inclut deux formulaires : F_Bureau et F_Bur_Depat ce n° 2 représente l'onglet Bureau
3 = formulaire 3_Monetaires qui inclut deux formulaires : F_Recettes et F_Depense ce n° 3 représente l'onglet Monétaire
4 = formulaire 4_Cotisation qui inclut trois formulaires : F_Cotis_Nvx - F_Cotis_Mod et F_Cotis_Paimnt ce n° 4 représente l'onglet Cotisation
5 = formulaire 6_Parti qui inclut trois formulaires : F_Adh_Pres_Jour - F_Const_Tabl_Joueur et F_P_Joueur ce n° 5 représente l'onglet Partie à jouer. C'est cette ligne qui nous intéresse.
De ces 5 formulaire j'ai constitué le volet de navigation horizontal en plaçant ces 5 formulaires les uns après les autres 1_Adh - 2_Bureau - 3_Monetaires - 4_Cotisation et 6_Parti.
Je n'ai fait aucun ajout.
Cordialement