Discussion :

[Mounamidou]

Bonjour
j'ai mis au point une fonction basé sur select case et le critère c'est un montant pour l'utiliser dans la détermination d'un champ calculé "date" en fonction d'autres champs calculés eux aussi sous format date

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
Function ThDeadTechBids(PropEnvlp As Long, ThAprvdPartnersNdS As Date, ThAprvdManagmentNdS As Date)
 
 
     Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = ThAprvdPartnersNdS + 28
        Case Is < 1000000
            DayRecTecBid = ThAprvdManagmentNdS + 28
 
 
    End Select
 
ThDeadTechBids = DayRecTecBid
 
End Function

Proposed_Envelope: Champ numérique.
ThAprvdPartnersNdS: Champ calculé Date
ThAprvdManagmentNdS: Champ calculé Date


pour la première condition >= 1000000 ça marche bien, mais pour la deuxième le résultat est #Erreur
est-ce qu'il y a qlq'un qui peut m'aider sur ce point?
merci

[ClaudeLELOUP]

Bonjour,

Essaie case else.

Alors, si tu n'as toujours pas le bon résultat, c'est que "Proposed_Envelope" n'est jamais < 1000000

[Mounamidou]

Essaie case else.

Alors, si tu n'as toujours pas le bon résultat, c'est que "Proposed_Envelope" n'est jamais < 1000000

je ne suis pas assez fort en VBA, donc si j'ai bien compris

Code :

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

1
2
3
4
5
6
7
8
 Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = ThAprvdPartnersNdS + 28
        Else
            DayRecTecBid = ThAprvdManagmentNdS + 28
 
 
    End Select

Fin de la citation

j'ai essayé le code suivant ça ne marche pas aussi

Code :

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

1
2
3
4
5
6
7
8
9
 
     Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = ThAprvdPartnersNdS + 28
        Case Else
            DayRecTecBid = ThAprvdManagmentNdS + 28
 
 
    End Select

[ClaudeLELOUP]

comme ceci

Code :

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

1
2
3
4
5
6
7
8
Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = ThAprvdPartnersNdS + 28
        case Else
            DayRecTecBid = ThAprvdManagmentNdS + 28
 
 
    End Select

NB quand tu es dans du code, tu places ton curseur au milieu d'un mot et tu enfonces <F1> ---> l'aide Access à la bonne page.

[Mounamidou]

comme ceci
case Else
DayRecTecBid = ThAprvdManagmentNdS + 28


End Select
[/code]

Désolé Claude, toujours #erreur

[ClaudeLELOUP]

Il est alors probable que ThAprvdPartnersNdS soit null ---> addition impossible.

Pour le voir, exécute comme ceci et vérifie dans la fenêtre d'exécution

Code :

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

1
2
3
4
5
6
7
Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = ThAprvdPartnersNdS + 28
        case Else
          debug.print  "valeur de"  & ThAprvdPartnersNdS       
          DayRecTecBid = ThAprvdManagmentNdS + 28
 End Select