Need help on nested select case statement

[SKV]

can some one please help me identify the problem in the code below, its not working properly. It is just a simple nested select case code

Public Function Chadtest(dt As Date, scac As String) As Integer
Dim ct As Integer
MsgBox (scac)
Select Case scac
Case A
Select Case dt
Case #1/1/2009# To #1/31/2009#
ct = 2
Case #2/1/2009# To #2/28/2009#
ct = 4
Case Else
ct = 999
End Select
Case B
Select Case dt
Case #1/1/2009# To #1/31/2009#
ct = 3
Case #2/1/2009# To #2/28/2009#
ct = 5
Case Else
ct = 999
End Select
End Select

Chadtest = ct

End Function

 

[Robert E Lee]

Have you assigned a value to dt?

Robert

 

[GTO]

Greetings SKV,

You are passing 'scac' as a String, so Case(s) should be like:

Case "A"
    '....code
Case "B"
    '....etc

Hope this helps,

Mark

 

[SKV]

Thanks, this worked

Greetings SKV,

You are passing 'scac' as a String, so Case(s) should be like:

Case "A"
    '....code
Case "B"
    '....etc

Hope this helps,

Mark