Need Help with Simple VB Function

[nrage21]

Hi, I suck in VB and need help with the syntax of a simple function I've named 'get_team'.

Public Function get_team(t_Language As String, t_Region As String, t_ZipCode As String)
       Select Case get_team
            Case t_Language IN ("EN", "CT")
                 get_team = "A"
            Case t_Language IN ("FR", "CH") AND t_Region = "S"
                 get_team = "B"
            Case t_Language("ZH", "MD") AND t_ZipCode NOT IN (10002, 11214)
                 get_team = "C"
            Case Else
                 get_team = "D"
 
    End Select
End Function

t_Language, t_Region, t_ZipCode refer to columns in a MS Access table (Language, Region, ZipCode).

get_team is the value I want returned if any of the cases criteria are met. This value will be placed in a column named Team.

Thx in advance

Nrage21

[pbaldy]

I see a couple of things right off. This line should be:

Select Case t_Language

I don't think IN works there, so these would be:

Case "EN", "CT"

Not sure you can use AND, so try

Case "FR", "CH"
  If t_Region = "S"  
    get_team = "B"
  Else
    get_team = "D"
  End If
Case ...

[weekend00]

since there so many different conditions, I would prefer IF...ELSEIF...ELSE...END IF, it must be much easier.