Select Case #Erreur

**Mounamidou** · 09/11/2010, 10h50

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** · 09/11/2010, 10h59

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** · 09/11/2010, 11h34

Envoyé par ClaudeLELOUP

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** · 09/11/2010, 11h42

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** · 09/11/2010, 11h45

Envoyé par ClaudeLELOUP

comme ceci
case Else
DayRecTecBid = ThAprvdManagmentNdS + 28

End Select
[/code]

Désolé Claude, toujours #erreur

**ClaudeLELOUP** · 09/11/2010, 11h56

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

**Mounamidou** · 09/11/2010, 13h37

Envoyé par 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

si je saisi une valeur de l'enveloppe >=1 000 000 $, alors la date de ThAprvdPartnersNdS apparait dans la fenêtre exécution. dans le cas contraire rien ne s'affiche.

Pour votre information ThAprvdPartnersNdS est calculé par une autre fonction dont le critère est toujours le Proposed_Envelope

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ThNdSApvdDayPrtnr(Proposed_Envelope As Long, Theoritical_App_Date_By_Managment_NdS As Date)
 
 
    Select Case Proposed_Envelope
        Case Is >= 1000000
            DayNdSAprvdPrtnr = Theoritical_App_Date_By_Managment_NdS + 21
 
 
 
    End Select
 
ThNdSApvdDayPrtnr = DayNdSAprvdPrtnr
 
End Function

**ClaudeLELOUP** · 09/11/2010, 13h59

dans le cas contraire rien ne s'affiche.

C'est là qu'est l'os ! ThAprvdPartnersNdS ne contient pas un nombre---> pas d'addition possible. Il est sans blanc, vide.

C'est ici que cela se passe :

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
Function ThNdSApvdDayPrtnr(Proposed_Envelope As Long, Theoritical_App_Date_By_Managment_NdS As Date)
 
 
    Select Case Proposed_Envelope
        Case Is >= 1000000
            DayNdSAprvdPrtnr = Theoritical_App_Date_By_Managment_NdS + 21
 
        case else ---->' dire ce qu'il faut faire, 
                              'actuellement DayNdSAprvdPrtnr reste vide
                             ' et par voie de conséquence ThNdSApvdDayPrtnr
                              'reste vide
 
        End Select
 
ThNdSApvdDayPrtnr = DayNdSAprvdPrtnr
 
End Function

Voilà justement ce qui fait que votre fille est muette ... (Molière)

**Mounamidou** · 09/11/2010, 14h36

Envoyé par ClaudeLELOUP

C'est là qu'est l'os ! ThAprvdPartnersNdS ne contient pas un nombre---> pas d'addition possible. Il est sans blanc, vide.

case else ---->' dire ce qu'il faut faire,
'actuellement DayNdSAprvdPrtnr reste vide
' et par voie de conséquence ThNdSApvdDayPrtnr
'reste vide
[/code]

ce champ là, lorsque le montant de l'enveloppe est < 1 000 000$ ne sera pas remplit et je procèdera par la suite à le désactivé on utilisant le montant de l'enveloppe comme critère.

Pour contourner ce problème de champ vide, j'ai changé ma fonction pour éviter l'employer de ce champ et éviter l'emploi des champs calculés pour trouver le résultat escompté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ThDeadTechBids(PropEnvlp As Long, RqstDayAC As Date)
 
 Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = RqstDayAC + 64
        Case Else
            DayRecTecBid = RqstDayAC + 43
 End Select
 
 
ThDeadTechBids = DayRecTecBid
 
End Function

cette fois, il n'y a pas de message d'erreur, mais le résultat est le même pour les montants >= et < à 1000 000$, c'est à dire il prend la date de la requested_Day_From_A&C + 43
je suis vraiment coincé est j'arrive pas à sortir du tunel!!

**Kloun** · 09/11/2010, 15h06

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ThDeadTechBids(PropEnvlp As Long, RqstDayAC As Date)
 debug.print "Proposed_Envelope : " & Proposed_Envelope
 Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = RqstDayAC + 64
        Case Else
            DayRecTecBid = RqstDayAC + 43
 End Select    
ThDeadTechBids = DayRecTecBid
End Function

Qu'y a-t-il dans la fenêtre de débogage ?

**ClaudeLELOUP** · 09/11/2010, 15h17

Ouf, du renfort. Bonjour Kloun.

**Mounamidou** · 09/11/2010, 15h20

Proposed_Envelope :
Rien!!

**Kloun** · 09/11/2010, 15h23

D'où le passage dans le Else.
Et ça vient d'où normalement le Proposed_Envelope ?

**Mounamidou** · 09/11/2010, 15h25

Envoyé par Kloun

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ThDeadTechBids(PropEnvlp As Long, RqstDayAC As Date)
 debug.print "Proposed_Envelope : " & Proposed_Envelope
 Select Case Proposed_Envelope
        Case Is >= 1000000
            DayRecTecBid = RqstDayAC + 64
        Case Else
            DayRecTecBid = RqstDayAC + 43
 End Select    
ThDeadTechBids = DayRecTecBid
End Function

Qu'y a-t-il dans la fenêtre de débogage ?

Code :

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

debug.print "PropEnvlp: " & PropEnvlp

dans ce cas si je saisi dans ce champ 1000000$ j'ai :
PropEnvlp : 1000000
et lorsque je saisi 2$ j'aurai:
PropEnvlp : 2

**Kloun** · 09/11/2010, 15h29

Quel est le rapport entre "Proposed_Envelope" et "PropEnvlp" ?

**Mounamidou** · 09/11/2010, 15h32

Envoyé par Kloun

Quel est le rapport entre "Proposed_Envelope" et "PropEnvlp" ?

le rapport c'est que
Proposed_Envelope est un champ d'une table
PropEnvlp est une variable que j'ai utilisé pour ma fonction

ooooooh Merci vous avez attiré mon attention sur l'erreur que j'ai commis

Code :

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

Select Case PropEnvlp

Au lieu de

Code :

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

Select Case Proposed_Envelope

merci beaucoup Kloun sans oublier Claude qui était très patient avec moi

**ClaudeLELOUP** · 09/11/2010, 15h36

l'étau se resserre !

**Kloun** · 09/11/2010, 15h36

1/ ajouter le Option Explicit (qui n'y est sans doute pas) en début de module.
2/

Code :

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

1
2
3
4
5
6
7
8
9
Function ThDeadTechBids(PropEnvlp As Long, RqstDayAC As Date)
 Select Case PropEnvlp 
        Case Is >= 1000000
            DayRecTecBid = RqstDayAC + 64
        Case Else
            DayRecTecBid = RqstDayAC + 43
 End Select    
ThDeadTechBids = DayRecTecBid
End Function

A noter qu'on peut se passer d'une fonction en utilisant un iif :

Code :

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

iif(PropEnvlp >= 1000000, RqstDayAC + 64, RqstDayAC + 43)

Select Case #Erreur

VBA Access

Discussions similaires

Partager

Partager