Discussion :

[Flow56]

Bonjour,

Je souhaite faire correspondre un formulaire et ss formulaire avec une condition. Mais je ne suis pas bilingue en VBA et je galère un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.Champs1 = "Sans" then NomSsFormulaire.Champs3 = Me.Champs2

Je voudrais que mon Champs2 soit saisie automatiquement dans mon champs3 de mon ss formulaire lors que le champs 1 est égal à Sans.

Quelqu'un a une idée

[mout1234]

Bonjour,

Avant tout je te rappelle qu'il est fortement conseillé de nommer explicitement les objets, tout au moins ceux auxquels on fait référence dans le code.

Une syntaxe plus précise devrait être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me!Champs1 = "Sans" then Me!NomSsFormulaire.Form!Champs3 = Me!Champs2

Mais je doute fort que le problème vienne de la syntaxe. Je crois plutôt que tu ne fais pas cette opération au bon moment et/ou que ton objectif est à revoir.

Détailles un peu ton objectif (pourquoi tu veux faire cette opération) et depuis quel évènement tu as essayé ton code.

[Flow56]

Merci de ta réponse

Voila mon code modifié avec ta synthaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me!Arrêt = "Sans" Then Me!Durée_arrêt.Forms!Début = Me!Date

Pour le détail de mon objectif, en faite j'ai un formulaire de saisie d'accident du travail avec une liste déroulante qui me précise si l'accident est avec ou sans arrêt de travail.
Et j'ai un sous formulaire qui me précise la durée de l'arrêt de travail.
J'aimerai que le sous formulaire se remplisse automatiquement quand je met "sans" arrêt avec la date de l'accident en début et fin pour que cela me fasse 0 jour d'arrêt au lieu de le saisir manuellement!

Et je met mon code dans la procédure évennementielle de ma liste déroulante avec ou sans dans la ligne "sur changement"

Avec le code que tu m'as donné la parite Me!Durée_arrêt.Forms!Début = Me!Date est douligné en jaune.

J'espère avoir été clair.

[mout1234]

Merci de ta réponse

Voila mon code modifié avec ta synthaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me!Arrêt = "Sans" Then Me!Durée_arrêt.Forms!Début = Me!Date

attention à ne pas confondre

• forms (collection des formulaires ouverts)
  et
• form (propriété d'un controleur conteneur de sous-formulaire permettant d'accéder au formulaire qu'il contient)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       Me!Durée_arrêt.Form!Début

Et je met mon code dans la procédure évennementielle de ma liste déroulante avec ou sans dans la ligne "sur changement"
J'espère avoir été clair.

Utilise plutot l'évenèment Aprés MAJ ou Sur Clic.

[Flow56]

Merci pour ta précision
Lors que je met bien Form au lieu de Forms cela ne fait rien. J(ai essayé aprés MAJ et sur clic

J'ai bien vérifié les noms de mes champs, formulaires... ils sont bons.

est ce que tu as une autre idée?

[micniv]

Vois le "tableau récapitulatif en A3" des commandes form/ss-form sur la page de Loufab.
http://loufab.developpez.com/

Ce tableau est INDISPENSABLE.

[Flow56]

Merci pour le lien c'est vrai que ce tableau est valable!
Mais il me confirme que la synthaxe pour faire réference à un sous formulaire à partir d'un formulair est bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me!Arrêt = "Sans" Then Me!Durée_arrêt.Form!Début = Me!Date

Par contre ça marche pô

[micniv]

Ok pour la syntaxe.
mais pour ce qui est de ce que tu veux faire je m'interroge comme Mout

Ou vas tu mettre ton code ?
Et en admettant que ton code fonctionne ca te mettrait à jour tous les controles Debut de ton sous-formulaire ...
En général, on met à jour un champ de sous form à partir d'un evt du sous-form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.parent.Arrêt = "Sans" Then Me.Début = Me.parent.Date

[Flow56]

Oaip ok je comprend ce que tu veux dire!

J'abonne l'idée je vais saisir manuellement les dates

Merci pour tes explications