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

Signaler
Messages postés
19
Date d'inscription
mardi 20 janvier 2015
Statut
Membre
Dernière intervention
24 novembre 2016
-
Messages postés
19
Date d'inscription
mardi 20 janvier 2015
Statut
Membre
Dernière intervention
24 novembre 2016
-
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

Messages postés
13949
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 janvier 2021
785
Tu écris page 4 et puis Pages(3).
Peux-tu partager ton fichier?
Messages postés
19
Date d'inscription
mardi 20 janvier 2015
Statut
Membre
Dernière intervention
24 novembre 2016

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
Messages postés
13949
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 janvier 2021
785
Suggestion :
If Me.TabCtl.Pages("Page4").Controls("Appel1").Controls("[1Présenté]")  Then
            Me.[Rencontré].Value = True
end if
Messages postés
19
Date d'inscription
mardi 20 janvier 2015
Statut
Membre
Dernière intervention
24 novembre 2016

Merci beaucoup ça marche !