Select case

[Rich]

How can I get the second part of this statement to evaluate, it doesn't want to work when "New" is the condition.
Select Case sType
Case "Existing"
Select Case sNum
Case Is = 1
GetrptPeriod =
Case Is = 3
GetrptPeriod =
Case Is = 2
GetrptPeriod =
Case "New"
Select Case sNum
Case Is = 1
GetrptPeriod =
Case Is = 3
GetrptPeriod =
Case Is = 2
GetrptPeriod =

 

[Drew]

Hi Rich,

this

    Select Case sType
        Case "Existing"
            Select Case sNum
                Case Is = 1
                    getrptperiod = 1
                Case Is = 3
                    getrptperiod = 1
                Case Is = 2
                    getrptperiod = 1
            End Select
        Case "New"
            Select Case sNum
                Case Is = 1
                    getrptperiod = 1
                Case Is = 3
                    getrptperiod = 1
                Case Is = 2
                    getrptperiod = 1
            End Select
    End Select

works fine - are your ends in the right place? able to help Rich! surely not...

HTH

Drew

 

[Rich]

Thanks Drew Access and the "night before" don't mix, Aspirin doesn't work and my teachers always said I was beyond help

No witty asides from the Backwater please, I've got a headache; Access inflicted.