Discussion :

[adelion7015]

Bonjour,

j'ai ci-dessus le code suivant que j'utilise pour ajouter des années a une date :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub phases_AfterUpdate()
 
Me.[Validité] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
Me.[Validité phase 2] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
Me.[Validité phase 3] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
End Sub

Mon soucis est d'avoir un changement de date uniquement dans le champ validité quand je choisis dans la liste deroulante la valeur phase 1,
Puis dans le soucis d'avoir un historique par rapport a ces changements, est d'avoir un changement dans la date du champ Validité 2 quand je choisis la valeur phases 2 et ainsi de suite,

Avec me code que j'ai posté plus haut le changement s’opère sur tout les champs.

Merci pour votre aide.

Cordialement.

[marot_r]

Bonjour.

Quelque chose comme :

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
 
Private Sub phases_AfterUpdate()
 
    select case me.phases
       case 1
           Me.[Validité] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
      case 2
          Me.[Validité phase 2] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
      case 3
         Me.[Validité phase 3] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
       case else
          call err.raise(5, , error$(5) & " - Numéro de phase non géré.")
 
    end select
 
End Sub

Cela fera le changement en fonction de la phase choisie.

A+

[adelion7015]

re bonjour,

Encore merci pour la celerité de vos reponses.

En mettant le code que vous m'avez envoyé, j'ai un message d'erreur que voici ;

erreur d'execution '5'
Argument ou appel de procedure incorrect-Numero de phase non géré.

Et en supprimant ce code il ne se passe rien

Code :

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

Call err.Raise(5, , Error$(5) & " - Numéro de phase non géré.")

Je n'ai pas compris aussi que representent les case 1, case 2, et case 3

encore merci.

[marot_r]

Bonjour.

De tes explications il m'avait semblé logique que Phases contienne la valeur 1, 2 ou 3.

Le case correspond à chacune des valeurs que j'imaginais possibles .
Le err.raise est destiné à attraper les erreurs au cas ou on ajouterai une valeur (ex : 4) et qu'on ai oublié de modifier le code en conséquence.

Il faut adapter le test à tes valeurs ... ou donner plus de détails sur ce que contient Phases.

A+

[adelion7015]

Je vous donne alors plus d'information :
phases est un champ contenant :
phase 1 = 2 ans
phase 2 = 2 ans
phase 3 = 3 ans

Un champ date de publication

valeur du [champ phases] + valeur du champ [date de plublication] = Validité (selon la phase choisie)

je rajouterais que j'ai sur le formulaire trois champs ou le resultat s'affichera selon le mon choix, c'est a dire :

Validité
Validité 2
Validité 3

[marot_r]

Bonjour.

Donc ta liste contient les textes suivants :

• "phase 1"
• "phase 2"
• "phase 3"

C'est cela ?

A+

[adelion7015]

absolument

[marot_r]

Bonjour.

Donc le code devrait probablement ressembler à :

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 phases_AfterUpdate()
 
    select case me.phases
       case "Phase 1"
           Me.[Validité] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
      case "Phase 2"
          Me.[Validité phase 2] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
      case "Phase 3"
         Me.[Validité phase 3] = DateAdd("yyyy", Me.phases.Column(3), Me.[Date de publication])
 
       case else
          call err.raise(5, , error$(5) & " - Numéro de phase non géré.")
 
    end select
 
End Sub

[adelion7015]

parfait, magnifique, magique.

merci beaucoup.

[marot_r]

Bonjour

si tu considères le sujet comme clos, merci d'appuyer sur le bouton en bas de discussion.

A+