Chemin : contrôle dans sous-form dans contrôle onglet dans form

Résolu
cquidoz Messages postés 22 Statut Membre -  
cquidoz Messages postés 22 Statut Membre -
Bonjour,

Je cherche comment inscrire une commande en code VBA

J'ai un formulaire Dossiers avec un contrôle cache à cocher Rencontré
dans le formulaire Dossier, j'ai un contrôle Onglet qui s'appelle TabCtl, qui contient plusieurs pages. Dans la page 4, nommé Page4, il y a un sous-formulaire appelé Appel1.
Dans le sous-formulaire Appel1, il y a une case à cocher qui s'appelle Présenté.
J'ai aussi une page 5 avec sous-formulaire Appel2 et une case à cocher Présenté2 et
une page 6 avec sous-formulaire Appel3 et case à cocher Présenté3.

Voici mon besoin:
Je souhaite que la case à cocher Rencontré du formulaire Dossier soit active si l'une des trois case à cocher Présenté est cocher.

Je sais que je dois utiliser If ... Then,
mais je n'arrive pas à savoir comment inscrire le chemin qui mène au contrôle Rencontré.

J'ai essayé
Dans current du formulaire Dossiers

If Dossiers.TabCtl.Pages(3).Appel1.[Présenté].Value = True Then
Me.[Rencontré].Value = True


J'obtiens l'erreur : 424
Objet requis.

Merci

2 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Tu écris page 4 et puis Pages(3).
    Peux-tu partager ton fichier?
    0
    1. cquidoz Messages postés 22 Statut Membre
       
      Bonjour

      Il s'agit de la 4ième page, mais si je ne me trompe pas, l'index des pages commencent à 0, c'est pour ça que j'ai écrit pages(3)

      Voici le lien pour mon fichier.

      Merci

      http://www.cjoint.com/c/FKybMRKANLg
      0
  2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Suggestion :
    If Me.TabCtl.Pages("Page4").Controls("Appel1").Controls("[1Présenté]")  Then
                Me.[Rencontré].Value = True
    end if
    0
    1. cquidoz Messages postés 22 Statut Membre
       
      Merci beaucoup ça marche !
      0