Discussion :

[MaryR]

Bonsoir le Forum,

Voici l'énoncé de ma question :

Dans une requête, je souhaiterai créer un champ [A TRAITER POUR LE], dans lequel serait calculé à partir d'une date donnée [DATE DOC], 14 jours ouvrables.

J'ai essayé ceci :
A TRAITER POUR LE: fAddOpenDay([DATE DOC];14)
mais ça ne fonctionne pas est-ce que quelqu'un pourrait m'aider, svp.

Cordialement
Mary

[User]

Cette fonction ne fait pas partie des fonctions Date d'Access:

Si tu souhaite oter les jours feriés, tu peux utiliser la fonction estferié de la faq:
http://access.developpez.com/faq/?pa...nip#NbJourOuvr

(copie le code de la faq dans un module.

et après tu ajoutes la fonction "AjoutJoursTrav" dans un module:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function AjoutJoursTrav(DateDebut As Date, NbreJoursTrav As Integer) As Date
Dim joursTrav As Integer
Dim dt As Date
 
dt = DateDebut
joursTrav = 0
 
While (joursTrav < NbreJoursTrav)
 
dt = dt + 1
 
   If DatePart("w", dt, vbMonday) < 6 and Not (EstFerie(dt)) Then
      joursTrav = joursTrav + 1
   End If
 
Wend
 
AjoutJoursTrav = dt
 
End Function

Dans mon cas je ne compte pas le premier jour (la date de début)

et après dans le champ calculé de ta requête:
[A TRAITER POUR LE]: AjoutJoursTrav([DATE DOC];14)

A+

[MaryR]

Bonjour le Forum,
Bonjour User,

Merci pour votre aide User, je viens d'appliquer tes conseils à ma base de données mais le résultat souhaité ne semble pas correcte.

Je vous annexe un échantillon de ma base de données - V2003,
dans laquelle je souhaiterai obtenir le résultat suivant,
dans le champ calculé [EN COMPTA POUR LE] de la requête1 :

[EN COMPTA POUR LE] = [DISTRIBUEES LE] + 14 jours ouvrables

(En faisant une simulation en utilisant Excel le résultat devrait plutôt ressembler à : [EN COMPTA POUR LE] = [A TRAITER POUR LE])

Dans l'attente de vous lire...

Cordialement
Mary

[User]

dans ta requête:

Code :

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

[EN COMPTA POUR LE]: AjoutJoursTrav([DISTRIBUEE(S) LE];+14)

utilise cette fonction que j'ai modifiée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function AjoutJoursTrav(DateDebut As Date, NbreJoursTrav As Integer) As Date
Dim joursTrav As Integer
Dim dt As Date
 
dt = DateDebut
joursTrav = 0
 
While (joursTrav < NbreJoursTrav)
 
dt = dt + 1
 
   If DatePart("w", dt, vbMonday) < 6 and Not (EstFerie(dt)) Then
      joursTrav = joursTrav + 1
   End If
 
Wend
 
AjoutJoursTrav = dt
 
End Function

A+

[MaryR]

Bonsoir,

Merci beaucoup User, ça fonctionne impec.

Comment devrais-je procéder si je souhaite maintenant créer des champs calculés dans ma requête pour pouvoir calculer l'échéance de paiement des factures à partir d'une date donnée et de son échéance?

Ex.: [DATE DOC] + 30 jours fin de mois
[DATE DOC] + 60 jours fin de mois
... en fonction de l'échéance du fournisseur concerné ???

Cordialement

Mary

[User]

Resalut,

S'agit-il de jours ouvrés, ou de jours absolus ?

A+

[MaryR]

Bonsoir User,

Merci pour ton aide...

Il s'agirait bien de calculer des jours absolus.
Je vais préparer au plus tard pour demain, une nouvelle base de données et présenter au mieux ma demande avec tous les éléments concernés.

Effectivement, je pense que la solution que tu proposes serait parfaite
mais j'ai juste du mal à comprendre comment on peut effectuer un calcul avec comme élément "30 jfm" ou autre...

BàT
Mary

[MaryR]

Bonsoir User,

Voici un nouvel échantillon de ma base V2003.

J'ai un petit problème, dans la requête "Rqt_DistributionFactures2009",
je n'arrive pas à faire le lien entre la "Table_DistributionFactures2009" et la "Table_Fournisseurs",
pour insérer le champ "Echeance" à la requête. Comment puis-je faire ?
(Le champ contenant les données du fournisseur étant le champ "DOCUMENT(S)").

Ensuite, insérer le champ "Echeance" de la "Table_Fournisseurs" à la requête pour pouvoir créer un champ calculé en fonction du fournisseur concerné :
ECHUE LE: [DATE DOC]+[ECHEANCE].

BàT
Mary

[User]

Salut,

A quoi correspond ton champs [CA] dans ta table "Table_DistributionFactures2009"

Apparement il manque l'identifiant du fournisseur dans cette table,
Le champs "Document(s)" n'est apparemment pas suffisant...

Merci