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

Résolu/Fermé
cquidoz Messages postés 19 Date d'inscription mardi 20 janvier 2015 Statut Membre Dernière intervention 24 novembre 2016 - 23 nov. 2016 à 16:01
cquidoz Messages postés 19 Date d'inscription mardi 20 janvier 2015 Statut Membre Dernière intervention 24 novembre 2016 - 24 nov. 2016 à 14:03
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

yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
23 nov. 2016 à 22:48
Tu écris page 4 et puis Pages(3).
Peux-tu partager ton fichier?
0
cquidoz Messages postés 19 Date d'inscription mardi 20 janvier 2015 Statut Membre Dernière intervention 24 novembre 2016
24 nov. 2016 à 02:40
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
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
Modifié par yg_be le 24/11/2016 à 08:22
Suggestion :
If Me.TabCtl.Pages("Page4").Controls("Appel1").Controls("[1Présenté]")  Then
            Me.[Rencontré].Value = True
end if
0
cquidoz Messages postés 19 Date d'inscription mardi 20 janvier 2015 Statut Membre Dernière intervention 24 novembre 2016
24 nov. 2016 à 14:03
Merci beaucoup ça marche !
0