have code below:
Function ClassColl(strClass As Variant, strColl As Variant) As String
' Comments :
' Parameters : strClass
' strColl
' Returns : String Description
' Created : 2-5-2004 - Mark Mullins
' Modified :
'
' --------------------------------------------------------
On Error GoTo PROC_ERR
'declare variables
Dim class As String
Dim coll As String
class = UCase(CStr(strClass))
coll = UCase(CStr(strColl))
' 1-4 Family Residential
' Investement Real Estate
If class = "1A" And (coll = "83" Or coll = "84") Then
ClassColl = "1-4 Family Residential*Construction!Investment
RE"
ElseIf class = "C1" And (coll = "83" Or coll = "84" Or coll =
"90") Then
ClassColl = "1-4 Family Residential*Non
Construction!Investment RE"
ElseIf class = "C2" And (coll = "83" Or coll = "84" Or coll =
"90") Then
ClassColl = "1-4 Family Residential*Non
Construction!Investment RE"
ElseIf class = "C3" And (coll = "83" Or coll = "84" Or coll =
"90") Then
ClassColl = "1-4 Family Residential*Non
Construction!Investment RE"
I would like to convert this to a select case statement as there are
many more comparisons to do... can someone explain the use of a case
statement in this scenario... that is, if statement with an and
clause?
Thanks!
Mark Mullins
Union Planters
ma**********@upbna.com