Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access DCount

DCount

3 réponses
Avatar
Marie
Bonjour,

J'ai fait une fonction pour calculer une date à laquelle on rajoute des
jours et le résultat ne prend
pas en compte les samedi, dimanche et jours fériés. Je voudrai l'utiliser
dans une requête mise
à jour.
Il y a une table jours fériés avec différents pays

Il doit y avoir un problème avec DCount car la fonction ne prend pas en
compte les jours
fériés.

Pouvez vous m'aider ? Merci par avance
Marie


Public Function calculjour(datedebut As Date, nbjours, infoPays)

lejour = datedebut

For Duree = 1 To nbjours

Compteinfo = DCount("[jourferie]", "8-feries", "[jourferie] = " & lejour &
"" _
& " and PAYS ='" & infoPays & "'")

Do While Weekday(lejour) = 7 Or Weekday(lejour) = 1 Or Compteinfo > 0
lejour = lejour + 1
Loop

Next

calculjour = lejour

End Function
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CErnst
Il semblerait que vous comptés le nombre de jours fériés contenus dans la
date : "lejour" ???!!!
je crois qu'il faudrait donner un intervalle....

"Marie" a écrit dans le message de news:

Bonjour,

J'ai fait une fonction pour calculer une date à laquelle on rajoute des
jours et le résultat ne prend
pas en compte les samedi, dimanche et jours fériés. Je voudrai l'utiliser
dans une requête mise
à jour.
Il y a une table jours fériés avec différents pays

Il doit y avoir un problème avec DCount car la fonction ne prend pas en
compte les jours
fériés.

Pouvez vous m'aider ? Merci par avance
Marie


Public Function calculjour(datedebut As Date, nbjours, infoPays)

lejour = datedebut

For Duree = 1 To nbjours

Compteinfo = DCount("[jourferie]", "8-feries", "[jourferie] = " & lejour &
"" _
& " and PAYS ='" & infoPays & "'")

Do While Weekday(lejour) = 7 Or Weekday(lejour) = 1 Or Compteinfo > 0
lejour = lejour + 1
Loop

Next

calculjour = lejour

End Function




Avatar
CErnst
xcuses, mal lu....
il ne faut pas prendre DCOUNT mais DLOOKUP
"Marie" a écrit dans le message de news:

Bonjour,

J'ai fait une fonction pour calculer une date à laquelle on rajoute des
jours et le résultat ne prend
pas en compte les samedi, dimanche et jours fériés. Je voudrai l'utiliser
dans une requête mise
à jour.
Il y a une table jours fériés avec différents pays

Il doit y avoir un problème avec DCount car la fonction ne prend pas en
compte les jours
fériés.

Pouvez vous m'aider ? Merci par avance
Marie


Public Function calculjour(datedebut As Date, nbjours, infoPays)

lejour = datedebut

For Duree = 1 To nbjours

Compteinfo = DCount("[jourferie]", "8-feries", "[jourferie] = " & lejour &
"" _
& " and PAYS ='" & infoPays & "'")

Do While Weekday(lejour) = 7 Or Weekday(lejour) = 1 Or Compteinfo > 0
lejour = lejour + 1
Loop

Next

calculjour = lejour

End Function




Avatar
Marie
Merci, je vais essayer
Bonne journée

Marie


"CErnst" a écrit dans le message de news:

xcuses, mal lu....
il ne faut pas prendre DCOUNT mais DLOOKUP
"Marie" a écrit dans le message de news:

Bonjour,

J'ai fait une fonction pour calculer une date à laquelle on rajoute des
jours et le résultat ne prend
pas en compte les samedi, dimanche et jours fériés. Je voudrai l'utiliser
dans une requête mise
à jour.
Il y a une table jours fériés avec différents pays

Il doit y avoir un problème avec DCount car la fonction ne prend pas en
compte les jours
fériés.

Pouvez vous m'aider ? Merci par avance
Marie


Public Function calculjour(datedebut As Date, nbjours, infoPays)

lejour = datedebut

For Duree = 1 To nbjours

Compteinfo = DCount("[jourferie]", "8-feries", "[jourferie] = " & lejour
& "" _
& " and PAYS ='" & infoPays & "'")

Do While Weekday(lejour) = 7 Or Weekday(lejour) = 1 Or Compteinfo > 0
lejour = lejour + 1
Loop

Next

calculjour = lejour

End Function