Case Statement Not working

[ste4en]

I am trying to use a Case statement however the red part as below is being ignored. Can anyone point out my error. Thanks; Steve

Select Case (myActivityCode)
  Case 201900
    CostCodeN = "201900"
  Case 201901
    CostCodeN = "201901"

[COLOR=red]
Select Case Left(myActivityCode, 3)
  Case "950"
    CostCodeN = "950000"
  Case "955"
    CostCodeN = "950000"
  Case "959"
    CostCodeN = "959000"
[/color]
End Select
  
  Case Else
  CostCodeN = Left(myActivityCode, 1) & "00000"

End Select
End Function

 

[SkipVought]

Hi,

let me indent for emphisis

    Select Case (myActivityCode)
      Case 201900
        CostCodeN = "201900"
      Case 201901
        CostCodeN = "201901"

       'myActivityCode is [b]201[/b]901 - THEREFOR the Left 3 emphasized
       ' as you see, there are no "201" cases.
    
        Select Case Left(myActivityCode, 3)
          Case "950"
            CostCodeN = "950000"
          Case "955"
            CostCodeN = "950000"
          Case "959"
            CostCodeN = "959000"
        
        End Select
      
      Case Else
      CostCodeN = Left(myActivityCode, 1) & "00000"
    
    End Select

Skip,
[sub]
[red][/red]
[/sub]

 

[ste4en]

Thanks Skip, I think you are saying that Case won't work here so how about IF's like this.

will Else: CostCodeN = Left(myActivityCode, 1) & "00000" capture everything that falls through the other IF's. Thanks

If (myActivityCode) = "201900" Then
    CostCodeN = "201900"
    Else
If (myActivityCode) = "201901" Then
    CostCodeN = "201901"
    Else
If Left(myActivityCode, 3) = "950" Then
    CostCodeN = "950000"
    Else
If Left(myActivityCode, 3) = "955" Then
    CostCodeN = "950000"
    Else
If Left(myActivityCode, 3) = "959" Then
    CostCodeN = "959000"
    Else: CostCodeN = Left(myActivityCode, 1) & "00000"

End If
End If
End If
End If
End If

End Function

 

[SkipVought]

I can evaluate SYNTAX.

Only YOU know what LOGIC your code must execute. Does that LOGIC meet your requirement? Did you test it?

Skip,
[sub]
[red][/red]
[/sub]

 

[JoeAtWork]

ste4en - I think you need to step back and take some time to learn the basic syntax of the VB language.

 

[ste4en]

learning is what i am trying. I will use my nested IIF in the query.
thanks anyway.

 

[PHV]

I think the OP wanted this:

Select Case myActivityCode
Case 201900
  CostCodeN = "201900"
Case 201901
  CostCodeN = "201901"
Case Else
  Select Case Left(myActivityCode, 3)
  Case "950"
    CostCodeN = "950000"
  Case "955"
    CostCodeN = "950000"
  Case "959"
    CostCodeN = "959000"
  Case Else
    CostCodeN = Left(myActivityCode, 1) & "00000"
  End Select
End Select

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ste4en]

PH - That's exactly what I wanted Thanks.