Function PremiumSize(InputValue As Long) As String
Select Case InputValue
case is <10000
premiumsize="<10"
case is <20000
premiumsize="10 - 19"
case is <30000
premiumsize="20 - 29"
case is <40000
premiumsize="30 - 39"
case else
premiumsize = "unknown"
End Select
End Function
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)
"lynda" <(E-Mail Removed)> wrote in message
news:6f0301c3e769$913185b0$(E-Mail Removed)...
> someone helped me write an expression in a module this
> morning and when i closed the file i lost it. it was very
> simple, i just don't know the format of how to rewrite it.
> what i remember:
> i was writing the function as so:
>
> case is <10000
> premiumsize="<10"
> case is <20000
> premiumsize="10 - 19"
> case is <30000
> premiumsize="20 - 29"
> case us <40000
> premiumsize="30 - 39"
> etc, etc.
>
> I have version 97. I need help writing the beginning and
> the end of the function....like -
> Function premiumsize (string) ...or something like that
> for the beginning and
> Function End ....or something like that for the end.
>
> Do you need more information to help??
>
> Thanks so much!!!