Discussion :

[ptitga]

On passe bien d'un formulaire à l'autre; oui. Mais les onglets (couleur active ou non) ne se mettent pas à jour.

[ptitga]

Le fonctionnement est correct : on passe bien d'un formulaire à un autre. Mais les onglets (couleur actif ou non) ne se mettent pas à jour.
De formNavA ver formNavC - Ok ; mais ensuite de formNavC vers formNavA ce n'est pas bon.

[hyperion13]

Désolé, mais chez moi ça fonctionne parfaitement bien. un clic ici.

[ptitga]

Bonsoir,

Le passage d'un formulaire à l'autre fonctionne effectivement très bien.
Le problème restant est les onglets (actif et non actif) .
1) je clique sur OKNavC sur formulaire formNavA je vais bien sur formulaire formNavc et la couleur des onglets est correcte
2) je clique maintenant sur OKNavA sur le formulaire formNavC, je vais bien sur le formulaire formNavA, mais là la couleur des
onglets est incorrecte; rien ne bouge.

[hyperion13]

Euh... Si vous avez visionné la vidéo de mon post précédent vous aurez remarqué que chez moi cela fonctionne très bien.
La base de donnée sur laquelle nous évoluons est la même et la procédure sur click() des btn de commande également.
A ce stade je ne saurai vous expliquer pourquoi cela ne marcherait pas chez vous.

[ptitga]

Merci tout de même. Il doit y avoir une configuration différente sur nos postes de travail.
J'ai fait une vidéo également cliquer ici https://www.cjoint.com/doc/18_08/HHx...823-210310.mpg

[ALPPH]

Bonjour,

Cette discussion m'a permis de trouver la solution à mon souci : dans un formulaire de navigation, se positionner sur un enregistrement précis dans un autre formulaire.

Subsistait un autre souci : afficher les bonnes couleurs des onglets. Les deux lignes de code Forms!f... sont la solution.

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 libnavA_DblClick(Cancel As Integer)
 
    With CodeContextObject
        DoCmd.BrowseTo acBrowseToForm, "formNavA", "formNav.SousFormulaireNavigation" ' ouvre le nouveau formulaire
        DoCmd.GoToControl "idnavA"
        DoCmd.FindRecord [num_tblNavA], acEntire, False, , False, , True ' trouve l'enregistrement choisi
    End With
 
    Forms!formNav!BoutonNavigation11.SetFocus   ' se positionne sur le nouvel onglet de navigation ouvert
    Forms!formNav!BoutonNavigation13.Requery    ' permet d'afficher l'onglet que l'on vient de quitter
                                                ' avec la bonne couleur "non-sélectionné"
 
On Error GoTo libnavA_DblClick_Err
 
libnavA_DblClick_Exit:
    Exit Sub
 
libnavA_DblClick_Err:
    MsgBox Error$
    Resume libnavA_DblClick_Exit
 
End Sub

Ci-joint la base de données précédente avec les ajouts.

Dans chaque sous-formulaire (affiché dans l'info bulle et dans la barre d'état) :

num_tblNavB, num_tblNavB : Choisir une enregistrement existant

libnavA, libnavB : Saisir une nouvelle donnée pour créer un nouvel enregistrement - Double clic pour ouvrir le formulaire correspondant à l'enregistrement affiché

Merci de vos commentaires et avis

[ALPPH]

Bonjour,

Dans la base de données ci-jointe, les instructions suivantes (sous le bouton Go):

Code :

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

1
2
MsgBox "1 : " & Forms!formNav!SousFormulaireNavigation!formNavASous!libnavB_entete.Name
MsgBox "2 : " & Forms!formNav!SousFormulaireNavigation.Form!formNavASous.Form!libnavB_entete.Name

affichent bien le nom du contrôle.

Mais l'instruction suivante :

Code :

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

DoCmd.GoToControl Forms!formNav!SousFormulaireNavigation.Form!formNavASous.Form!libnavB_entete

provoque une erreur :

Erreur d'exécution '2109':
Il n'y a pas de champ nommé « Bhjkf » dans l'enregistrement actuel.

L'instruction DoCmd.GoToControl fonctionne très bien quand on va dans un formulaire, voir le message précédent, mais pas dans un sous-formulaire.

Quelle est l'explication ? Y-a-il une solution ?

Merci de votre réponse