Discussion :

[wadjo]

salut,

1- j'ai un champ "date de demande" où je renseigne la date du jour.
2- j'ai un champ "date prevue" où j'ai mis une formule qui est [date de demande] + n jours
3- j'ai un champ "nombre de jours de retard" qui a pour formule Date () - [date prevue]; ce champ me sert de compteur
4- j'ai un champ "date effective"

Je souhaiterais que le champ "4" lorsqu'il est renseigné arrête le compteur (champ 3)

Merci d'avance de votre aide.

P.S j'ai foullé partout et appris plein de choses, toutefois mon souci reste entier.

[User]

Je te donne une piste possible:

Code :

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

1
2
 
champ3: iif([date effective]<>"",DateDiff("d",[date prevue],[date effective]),DateDiff("d",[date prevue],Date())

En d'autres termes:

si [Date effective] est renseigné tu mets:

champ3 = [Date effective]-[Date prevue]

sinon,
tu mets

champ3 = date()-[Date prevue]

@+

[wadjo]

Merci.

J'introduis le code, mais lors de la validation je reçois le message d'ereur suivant attendu : )

[User]

Tu travailles dans une requête ?

[wadjo]

Dans le formulaire

[User]

sur after update du champs que tu renseigne,

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub date_effective_AfterUpdate()
 
   if Not IsNull([date_effective]) and ([date_effective].value<>"") then
    Nbre_Jours_Retard.Value =DateDiff("d",[date_prevue],[date_effective])
   else
    Nbre_Jours_Retard.Value =DateDiff("d",[date_prevue],Date())
   end if
 
End Sub

Tu peux aussi mettre créer une fonction Nbre_Jours

Code :

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

1
2
3
4
5
6
7
8
9
Public function Nbre_Jours()
 
   if Not IsNull([date_effective]) and ([date_effective].value<>"") then
    Nbre_Jours =DateDiff("d",[date_prevue],[date_effective])
   else
    Nbre_Jours =DateDiff("d",[date_prevue],Date())
   end if
 
End Sub

et tu mets la propriété source contrôle de "Nbre_Jours_Retard":

(Nbre_Jours_Retard.ControlSource) à

Code :

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

=Nbre_Jours()

A+

[wadjo]

Merci de votre aide.
J'ai aussi pu faire ceci:

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
 Public Function CalculerNombreJoursRetard(ByVal argDateEvenement As Date, _
                                          ByVal argNbreJour As Integer, _
                                          Optional argDateExecution As Variant) As Integer
Dim lintNbreJours As Integer
Dim ldttDateRéférence As Date
Dim ldttDateButoir As Date
 
If Not IsMissing(argDateExecution) Then
    ldttDateRéférence = argDateExecution
Else
    ldttDateRéférence = Now()
End If
 ldttDateButoir = DateAdd("d", argNbreJour, argDateEvenement)
 lintNbreJours = DateDiff("d", ldttDateButoir, ldttDateRéférence)
 CalculerNombreJoursRetard = lintNbreJours
End Function

[wadjo]

Code :

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

=(([MontantPayé]/n)*NbreJoursRetard)

Ce code me permet de calculer des pénalités.

La reglementation limite les pénalités à 2*[MontantPayé]
Que fais-je afin que mes resultats respectent la contrainte reglementaire?

Merci d'avance.