Calcul automatique des champs date a partir de la valeur de deux autres champs

**adelion7015** · 17/12/2018, 08h32

Bonjour,

Je reviens vers pour un soucis que j'ai sur quelque lignes de codes, j'explique, j'ai un formulaire principale sur lequel j'ai un champ durée sous forme de liste déroulante, il exprime les durée en mois d'un contrat, c'est a dire 12, 14, 18, 24 etc..... et un champs date qui exprime la date d'entrée en vigueur du contrat ou éventuellement la prévision d'entrée en vigueur.

J'ai aussi un sous formulaire sur lequel il y des champs date, [duree1],[duree2] etc .... ils vont jusqu'à 5 en prenant en compte la durée moyenne de nos contrats.

Je met ici le code, je continue les explications après :

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
Private Sub duree_AfterUpdate()
Select Case Me.duree
Case "12"
Forms!f_projet!f_duree.Form!Me.[duree1] = DateAdd("yyyy", Me.duree.Column(1), Me.[date_])
Case "14"
Forms!f_projet!f_duree.Form!Me.[duree2] = DateAdd("yyyy", Me.duree.Column(1), Me.[date_])
Case "18"
Forms!f_projet!f_duree.Form!Me.[duree3] = DateAdd("yyyy", Me.duree.Column(1), Me.[date_])
Case "24"
Forms!f_projet!f_duree.Form!Me.[duree4] = DateAdd("yyyy", Me.duree.Column(1), Me.[date_])
Case "36"
Forms!f_projet!f_duree.Form!Me.[duree5] = DateAdd("yyyy", Me.duree.Column(1), Me.[date_])
Case Else
Call Err.Raise(5, , Error$(5) & " - Durée non gérée.")
 
End Select
 
End Sub

Alors l'idée serait quand je renseigne le champ periode et le champ date, les champs du sous fromulaire se renseignent automatiquant, c'est a dire :

si le champ date a la valeut 01/01/2019 et que le champ duree a la valeur 24, les champs du sous formulaire [duree1] aura la valeur 01/01/2020 et le champ [duree2] aura la valeur 01/01/2021, il s'arretra la puisque on parle de 24 mois biensur.

j'espere avoir été clair, n'hesitez pas a poser des questions.

Merci.

Cordialement.

**james68** · 17/12/2018, 09h09

Salut , brut de décoffrage... a affiner suivant tes besoins et et nom de champs.
++

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
31
32
33
34
35
36
 
 
Option Compare Database
Option Explicit
 
Private Sub Modifiable2_AfterUpdate()
 
Select Case Me.Modifiable2
Case "12"
Forms.frm_duree.SFRM_DUREE.Form.duree1 = DateAdd("m", Me.Modifiable2, (Me.Date))
Case "14"
Forms.frm_duree.SFRM_DUREE.Form.duree1 = DateAdd("m", 12, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree2 = DateAdd("m", Me.Modifiable2 - 12, (Me.Date))
 
Case "18"
Forms.frm_duree.SFRM_DUREE.Form.duree1 = DateAdd("m", 12, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree2 = DateAdd("m", Me.Modifiable2 - 14, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree3 = DateAdd("m", Me.Modifiable2, (Me.Date))
Case "24"
Forms.frm_duree.SFRM_DUREE.Form.duree1 = DateAdd("m", 12, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree2 = DateAdd("m", Me.Modifiable2 - 14, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree3 = DateAdd("m", Me.Modifiable2 - 18, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree4 = DateAdd("m", Me.Modifiable2, (Me.Date))
Case "36"
Forms.frm_duree.SFRM_DUREE.Form.duree1 = DateAdd("m", 12, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree2 = DateAdd("m", Me.Modifiable2 - 14, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree3 = DateAdd("m", Me.Modifiable2 - 18, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree4 = DateAdd("m", Me.Modifiable2 - 24, (Me.Date))
Forms.frm_duree.SFRM_DUREE.Form.duree5 = DateAdd("m", Me.Modifiable2, (Me.Date))
Case Else
Call Err.Raise(5, , Error$(5) & " - Durée non gérée.")
 
End Select
 
 
End Sub

**adelion7015** · 17/12/2018, 09h37

Bonjour james68,

Merci pour la réponse, j'ai modifié le code selon l'existant que j'ai sur mes formulaires, alors une fois executé j'ai le message d'erreur suivant :

Erreur d'exexution '5'
Argument ou appel de procédure incorrect-Durée non gérée.

Par contre, quand j'enleve ce bout de code, il ne se passe rien.

Merci.

cordialement.

**james68** · 17/12/2018, 09h41

Re poste ton code modifié et dis nous sur quelle ligne ca plante STP
++

**adelion7015** · 17/12/2018, 10h57

Voici le 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
31
32
33
34
Option Compare Database
Option Explicit
 
Private Sub duree_AfterUpdate()
 
Select Case Me.duree
Case "12"
Forms.f_projet.SFRM_f_duree.Form.duree1 = DateAdd("m", Me.duree, (Me.date_))
Case "14"
Forms.f_projet.SFRM_f_duree.Form.duree1 = DateAdd("m", 12, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree2 = DateAdd("m", Me.duree - 12, (Me.date_))
 
Case "18"
Forms.f_projet.SFRM_f_duree.Form.duree1 = DateAdd("m", 12, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree2 = DateAdd("m", Me.duree - 14, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree3 = DateAdd("m", Me.duree, (Me.date_))
Case "24"
Forms.f_projet.SFRM_f_duree.Form.duree1 = DateAdd("m", 12, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree2 = DateAdd("m", Me.duree - 14, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree3 = DateAdd("m", Me.duree - 18, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree4 = DateAdd("m", Me.duree, (Me.date_))
Case "36"
Forms.f_projet.SFRM_f_duree.Form.duree1 = DateAdd("m", 12, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree2 = DateAdd("m", Me.duree - 14, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree3 = DateAdd("m", Me.duree - 18, (Me.date_))
Forms.f_projet.SFRM_f_duree.Form.duree4 = DateAdd("m", Me.duree - 24, (Me.date_))
Forms.f_projet.SFRM_d_duree.Form.duree5 = DateAdd("m", Me.duree, (Me.date_))
Case Else
Call Err.Raise(5, , Error$(5) & " - Durée non gérée.")
 
End Select
 
 
End Sub

J'ai le message d'erreur sur la dernière ligne, elle d'ailleurs surligné en jaune et quand je l'enlève, il ne se passe rien.

**james68** · 17/12/2018, 11h00

la 29 ?

**adelion7015** · 17/12/2018, 11h05

oui

**james68** · 17/12/2018, 11h10

je n'utilise pas de maniere generale la fonction err.raise.
tu peux peux etre gerer ca par une msgbox

Code :

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

1
2
3
 
Dim Ret
Ret = MsgBox("Durée non gerée !", vbCritical, "titre de l'appli")

d'autre part si tu as limitée a la liste ta liste déroulante de durée, tu n'as pas besoin de gérer l'erreur ( les valeurs prédefinis pour ce combo : 12,14,18,24,36)
++

**adelion7015** · 17/12/2018, 11h17

oui effectivement ma liste est limité a 36, je ne sais pas si c'est vraiment nécessaire, en même temps en suppriment cette ligne, rien ne se passe.

**adelion7015** · 17/12/2018, 11h20

maintenant avec cette ligne, même si la durée existe dans la liste j'ai quand même le message que comme quoi la durée n'est pas gérée.

**james68** · 17/12/2018, 11h29

quelles sont tes références actives dans le VBA?

**james68** · 17/12/2018, 11h32

D'autre part Renomme ton champ "date"...
Par exemple : Saisie_de_date

**adelion7015** · 17/12/2018, 11h36

Une capture d'écran des références.

reference.docx

**james68** · 17/12/2018, 11h44

Nom : duree.jpg
Affichages : 153
Taille : 73,8 Ko

**adelion7015** · 17/12/2018, 13h21

Désolé d'être dans le négatif, mais ca ne marche toujours pas, j'ai coché les références telle que c'est sur l'image que vous m'avez envoyer, rien.

**james68** · 17/12/2018, 13h37

et en changeant le nom de ton champ date ?

**adelion7015** · 17/12/2018, 13h54

j'ai changé par période et toujours rien, le problème n'est pas dans le fait qu'il s'agit d'un sous formulaire.

**james68** · 17/12/2018, 14h04

Possible.
le form principal et le sous formualire sont il lié ( champ pere fils )
as tu le droit d'ecrire dans le sous formulaire.
quel est le message exact d'erreur ?
a plus

**adelion7015** · 17/12/2018, 14h12

Oui, ils sont bien liés, voila c'est tout le problème, en gardant la dernière ligne, c'est a dire la ligne 29 a tout les coups j'ai message "durée non gerée" et rien ne se passe, le pire quand je l'enlève rien ne se passe aussi.