Discussion :

[ptitga]

Bonsoir,

J'ai un formulaire principal avec un menu de navigation; comment puis-je faire en VBA pour rendre actif un autre onglet ?
Je vous remercie vivement de votre aide. Mon application est sous Access 2016.
Bonne soirée.

[ptitga]

Bonsoir,

J'ai un formulaire principal avec un menu de navigation; j'aimerais pouvoir en vba changer d'onglet. Comment faire ?
Merci à tous de votre aide.
Bonne soirée!

[hyperion13]

Bonsoir
A tester

Code :

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

Me!NonDuSousFormulaireDeNavigation.SourceObject = "NomDuForm"

[ptitga]

Je viens de tester : Erreur 438 propriété ou méthode non gérée par cet objet.
Que faire ?

[marot_r]

bonjour.

Les formulaires de navigation sont TRES differents des formulaires "tout court" et la plus part des trucs qu'on trouvent sont pour des formulaires "tout court" (merci M$ pour la confusion et le manque de doc).

Ici quelques infos :

https://docs.microsoft.com/en-us/off...igationcontrol

Peut-etre cela :
Set Focus on Navigation Form
https://access-programmers.co.uk/for...d.php?t=287003

Mais avec in SendKeys ... jamais la 1ere option a retenir car fragile.

Ca peut-etre tout en bas :
Navigating to a different tab in navigation subform
https://stackoverflow.com/questions/...gation-subform

A+

[hyperion13]

Re,
Vous avez bien crée un "formulaire de navigation" (voir image) ?
Si c'est bien le cas, sur le btn de commande (11) j'ai utilisé le code suivant :

Code :

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

1
2
3
4
5
6
Private Sub Commande11_Click()
Me!SousFormulaireNavigation.SourceObject = "form_MB"
'ou
'Call Me.SousFormulaireNavigation.SetFocus 'OK
'Me.SousFormulaireNavigation.SourceObject = "form_MB"
End Sub

Chaque SousFormulaireNavigation contient un form nommé form_MA, form_MB, etc.
Cette méthode implique de devoir créer autant de btn de commande qu'il y a de SousFormulaireNavigation !

Pour contourner ce problème, créer une liste modifiable ayant pour contenu :

Code :

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

1
2
3
4
SELECT MsysObjects.Name, MsysObjects.Type
FROM MsysObjects
WHERE (((MsysObjects.Type)=-32768))
ORDER BY MsysObjects.Name;

et sur l'évènement Afterupdate() de la liste déroulante (12) :

Code :

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

1
2
3
Private Sub Modifiable12_AfterUpdate()
Me!SousFormulaireNavigation.SourceObject = Me.Modifiable12.Column(0)
End Sub

[ptitga]

Le code indiqué par hyperion13 est correct ; je l'ai adapté à mon cas après l'erreur 438 indiquée:

Code :

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

 Forms![Retrace]![SousFormulaireNavigation].SourceObject = "AjouterLaFamille"

Le formulaire correspondant est bien ouvert; reste que l'onglet n'est pas en bleu foncé , c'est-à-dire non sélectionné.
Comment y remédier ?
Merci de votre aide précieuse.

[hyperion13]

bonjour.
Les formulaires de navigation sont TRES differents des formulaires "tout court" et la plus part des trucs qu'on trouvent sont pour des formulaires "tout court" (merci M$ pour la confusion et le manque de doc).

Salut Marot,
Je confirme, c'est vraiment galère pour trouver des ressources claires sur les form de navigation de la part de Ms.
A l'aide de ton 3ème lien stackoverflow, une solution pour se balader dans les onglets de navigation via btn ou list.

[loufab]

Bonjour,

Ce formulaire est très différent du formulaire commun avec un système à onglet.

Voici de la lecture qui répondra surement à ton problème.

https://www.developpez.net/forums/d1...nger-d-onglet/

Cordialement,

[EDIT] désolé c'est une fusion des 2 discussions ouvertes.

[ptitga]

Bonjour à Tous et Merci pour votre aide et de vos différents liens fort intéressants.

hyperion13 m'a donné une solution qui me permet d'ouvrir le formulaire caché derrière un onglet de formulaire de navigation et ce en VBA :

Code :

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

Forms![MonFormulaire]![SousFormulaireNavigation].SourceObject = "Nom de mon formulaire"

Ceci fonctionne à merveille et répond à mon besoin.
Toutefois, pour finaliser ce changement d'onglet dans le formulaire de navigation, il serait bien que le focus (onglet souligné en bleu foncé, signalant qu'il est actif)
soit sur l'onglet nouvellement ouvert. Ce serait SUPER et répondrait à mon projet dans sa totalité.
Merci .

[hyperion13]

Désolé, mais sauf erreur lorsque le focus est sur le btn de navigation actif la couleur est bleu clair et le form associé devient visible.

[ptitga]

Pour mieux cerner le problème, voici quelques captures :

1)

quand je clique sur ok sur formulaire 1 j'arrive bien sur formulaire 3 grâce à ce code :

Code :

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

1
2
3
4
 
Private Sub BtOKF1_Click()
Forms![Test]![SousFormulaireNavigation].SourceObject = "Fonction3"
End Sub

2) Voici ce que j'obtiens :

Alors que je voudrais ceci :



Merci

[hyperion13]

Ôtez-moi d'un doute, votre bouton se trouve où exactement ?

[hyperion13]

Code :

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

1
2
3
4
 
Private Sub BtOKF1_Click()
Forms![Test]![SousFormulaireNavigation].SourceObject = "Fonction3"
End Sub

Sauf que le code ci-dessus ne correspond en rien au code fourni dans la bdd de mon post#8 et qu'il fonctionne que les btn de commande soient dans le form de navigation ou dans les form du sform de navigation

[ptitga]

Le bouton "OK" est à l'intérieur du "formulaire 1" correspondant à l'onglet "Fonction1" du menu de navigation.

[ptitga]

Voici la base de Test :

[hyperion13]

Dans la bdd du post#8 vous avez la solution.
Et dans le post#14 je vous ai indiqué que votre procédure vba n'était plus adaptée. (cf post#8)
Une fois la modif faite, cela fonctionne parfaitement.

[ptitga]

Bonjour,

Un grand MERCI ! Effectivement, j'avais pas très bien regardé; mille excuses !

Mon problème est RESOLU et j'en suis très content.

Vive ce site et tous ces coordinateurs !
Bonne continuation et Bonne journée.

[ptitga]

Bonsoir,

Je reviens vers vous car le va-et-vient ne fonctionne pas, sauf si je clique sous le menu de navigation.
Je vous transfère votre base avec les boutons mis sur le formulaire formNavA et sur le formulaire formNavC.
Merci.

[hyperion13]

Désolé, fonctionnent parfaitement bien les 2 btn va-et-vient