Calcul d'échéance

Version imprimable

29/01/2015, 21h52
bricoduc

Calcul d'échéance

Bonjour,

Dans ma base access je cherche a faire un calcul d'échéance de contrat en fonction d'un champ date de conclusion additionné de sa validité première, additionné de sa validité secondaire, moins le délais de résiliation et moins un délais supplémentaire et ceci à jour pour l'année en cours quand il n'est pas inférieur à la validité première.

Je cherche la solution pour cette réalisation.

Est-ce que quelqu'un peut m'aider.

Merci d'avance pour vos réponses.

Daniel
29/01/2015, 22h22
f-leb

Bonsoir,

le tuto qu'il te faut sur les dates : Les Fonctions Date/Heure

Calcul d'échéance de contrat

J'ai fait la sub suivante pour calculer mes échéances mais elle marche pas bien parce quelle est pas performante comment faire pour améliorer mon code?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Form_AfterUpdate()
 
    If ((Me.Conclusion + Me.Validite) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
          Me.Echeance = ((Me.Conclusion + Me.Validite) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
   If ((Me.Conclusion + Me.Validite + Me.Ensuite) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
         Me.Echeance = ((Me.Conclusion + Me.Validite + Me.Ensuite) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
    If ((Me.Conclusion + Me.Validite + (Me.Ensuite * 2)) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
         Me.Echeance = ((Me.Conclusion + Me.Validite + Me.Ensuite + Me.Ensuite) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
    If ((Me.Conclusion + Me.Validite + (Me.Ensuite * 3)) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
         Me.Echeance = ((Me.Conclusion + Me.Validite + (Me.Ensuite * 3)) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
    If ((Me.Conclusion + Me.Validite + (Me.Ensuite * 4)) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
         Me.Echeance = ((Me.Conclusion + Me.Validite + (Me.Ensuite * 4)) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
    If ((Me.Conclusion + Me.Validite + (Me.Ensuite * 5)) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
         Me.Echeance = ((Me.Conclusion + Me.Validite + (Me.Ensuite * 5)) - (Me.Delai_resiliation + Me.Delai_supp))
    Else
    If ((Me.Conclusion + Me.Validite + (Me.Ensuite * 6)) - (Me.Delai_resiliation + Me.Delai_supp) > Date) Then
        Me.Echeance = ((Me.Conclusion + Me.Validite + (Me.Ensuite * 6)) - (Me.Delai_resiliation + Me.Delai_supp))
    End If
    End If
    End If
    End If
    End If
    End If
    End If
End Sub

31/01/2015, 10h01
User

Bonjour,

Qu'entendez-vous par "pas performante" ?

Le résultat donné est correct mais vous la trouvez lente ?

Cdlt,
31/01/2015, 19h54
bricoduc

Bonjour,
Les calculs se bloquaient. Mais j'ai trouvé la solution, c'est parce que le résultat était enregistré dans la table.
Maintenant un autre problème surgit: Dans mon formulaire j'ai créer des onglets ou j'ai placé mon sous formulaire avec mon calcul sur l’échéance mais l'affichage change pour tous les enregistrements en même temps je ne comprends pas pourquoi quel est le paramètre qui est faut ?
Merci pour votre participation.
Daniel
01/02/2015, 13h00
User

Bonjour,

Ton contrôle "échéance" semble être indépendant, il n'y a pas de liaison avec un champ de ta table ou de ta requête source (cf. propriété "source contrôle").

Il faudrait créer un champ calculé à partir de ton code et lier ta zone de texte "échéance" à ce champ avec la propriété "source contrôle".

Cdlt,
14/02/2015, 10h43
bricoduc

Calcul d'echeance

Mais comment utiliser mon code dans le champ ou placer le code?

Créer une fonction personnalisée

Bonjour,

Il faudrait que tu crées une fonction personnalisée dans un module indépendant, le code serait un peu une adaptation de celui que tu as mis pour ton formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function EvalEcheance(Conclusion ,Validite , Ensuite,Delai_resiliation , Delai_supp) 
 
    If ((Conclusion + Validite) - (Delai_resiliation + Delai_supp) > Date) Then
          EvalEcheance = ((Conclusion + Validite) - (Delai_resiliation + Delai_supp))
    Else
   If ((Conclusion + Validite + Ensuite) - (Delai_resiliation + Delai_supp) > Date) Then
         EvalEcheance = ((Conclusion + Validite + Ensuite) - (Delai_resiliation + Delai_supp))
    Else
    If ((Conclusion + Validite + (Ensuite * 2)) - (Delai_resiliation + Delai_supp) > Date) Then
         EvalEcheance = ((Conclusion + Validite + Ensuite + Ensuite) - (Delai_resiliation + Delai_supp))
    Else
    If ((Conclusion + Validite + (Ensuite * 3)) - (Delai_resiliation + Delai_supp) > Date) Then
         EvalEcheance = ((Conclusion + Validite + (Ensuite * 3)) - (Delai_resiliation + Delai_supp))
    Else
    If ((Conclusion + Validite + (Ensuite * 4)) - (Delai_resiliation + Delai_supp) > Date) Then
         EvalEcheance = ((Conclusion + Validite + (Ensuite * 4)) - (Delai_resiliation + Delai_supp))
    Else
    If ((Conclusion + Validite + (Ensuite * 5)) - (Delai_resiliation + Delai_supp) > Date) Then
         EvalEcheance = ((Conclusion + Validite + (Ensuite * 5)) - (Delai_resiliation + Delai_supp))
    Else
    If ((Me.Conclusion + Validite + (Ensuite * 6)) - (Delai_resiliation + Delai_supp) > Date) Then
        EvalEcheance = ((Conclusion + Validite + (Ensuite * 6)) - (Delai_resiliation + Delai_supp))
    End If
    End If
    End If
    End If
    End If
    End If
    End If
End Sub

Fonction que tu appelles ensuite dans ta requête source dans un champ calculé comme ceci :

Code:

Echeance: EvalEcheance([Conclusion] ,[Validite] , [Ensuite],[Delai_resiliation] , [Delai_supp])

Enfin, tu lies ton formulaire à cette requête et la zone de texte "Echeance" de ta fiche à ce champ calculé.

Cdlt,

15/02/2015, 20h07
bricoduc

Bonjour,
J'ai appliqué ce que tu m'as dit et ça fonctionne. Merci
Mais maintenant est-ce que je peut simplifier ma fonction et comment le faire pour quelle puisse fonctionner sur de nombreuses années ?
Salutations.
Daniel
16/02/2015, 09h16
User

Bonjour,

Peux-tu préciser les choses avec un exemple concret ?

Cdlt,
16/02/2015, 18h59
bricoduc

Bonjour,
Avec la fonction case ou with est-ce possible et plus rapide dans l'exécution ?
Daniel
16/02/2015, 19h15
User
Pour être honnête je ne crois pas qu'il y ait une grosse différence.

Le select case simplifie juste les choses au niveau de l'écriture :
Code:

1 2 3 4 5 6 7 8 9 Select case Variable Case 1 ... Case 2 ... End select
a+
16/02/2015, 21h25
bricoduc

Merci pour ton aide elle m'a été précieuse.
Salutations.
Daniel