Discussion :

[bricoduc]

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

[f-leb]

Bonsoir,

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

[bricoduc]

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 :

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
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

[User]

Bonjour,

Qu'entendez-vous par "pas performante" ?

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

Cdlt,

[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

[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,