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 -
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
J'obtiens l'erreur : 424
Objet requis.
Merci
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 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? -
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