Menu

Chemin : contrôle dans sous-form dans contrôle onglet dans form [Résolu/Fermé]

cquidoz 19 Messages postés mardi 20 janvier 2015Date d'inscription 24 novembre 2016 Dernière intervention - 23 nov. 2016 à 16:01 - Dernière réponse : cquidoz 19 Messages postés mardi 20 janvier 2015Date d'inscription 24 novembre 2016 Dernière intervention
- 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


Afficher la suite 

4 réponses

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