Discussion :

[Dralex]

Bonjour à tous,

je voudrais appliquer la fonction suivante :

http://access.developpez.com/faq/?pa...nip#NbJourOuvr

mais je n'ai aucune idée de comment faire ...

En gros j'ai un formulaire que l'utilisateur complète, il indique entre autre la date de début et la date de fin et je voudrais qu'automatiquement dans le formulaire il y ait une case qui indique le delais en jours ouvrés entre les deux dates.

J'ai ouvert la page VBA de mon fomulaire dans lequel j'ai copié le code de la FAQ. Ensuite j'ai tout essayé pour faire appel à la fonction depuis le formulaire et soit la case reste blanche, soit j'ai un ?NOM qui apparait. J'ai mis un breakpoint dans la fonction et je constate qu'à aucun moment elle n'est exécutée.

Pourriez-vous m'aider ?

Merci d'avance,

[zoom61]

Salut,

Il faut que tu crées un module avec le code que tu as trouvé.

Ensuite, dans le champ que tu as pour calculer les nombres de jours, tu saisis :

Code :

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

=Work_Days(Date_de_début, Date_de_fin)

Il faut que tu mettes un Me.refresh sur après mise à jour de la date de fin, pour que cela calcul le nombre de jour.

@+.

[Dralex]

Bonjour,

merci pour ta réponse, elle m'a permis d'avancer un peu mais je suis à nouveau bloqué.

Je fais appel à la fonction dans mon formulaire dans le before update, ce qui fait qu'au moment d'enregistrer, hop la valeur est calculée ... parfait,

cependant lorsque je regarde dans la table, la valeur ne s'enregistre pas .

Il s'agit d'un champ numérique ... dois-je faire un champ calculé ?

Dans ce cas j'ai automatiquement le générateur d'expression qui s'ouvre et je ne sais plus faire appel à la fonction ...

MErci d'avance pour ton aide

[Dralex]

Oups,
autant pour moi j'encodais la valeur dans un nouveau libellé au lieu de la "variable" Délais. Tout est en ordre maintenant !

Un grand merci,