hi,
thank you for reply code.
i get error message missing comma(,), i try to insert comma at many placess but still .
thanks.
>>hi all,
>>
>>any new way to write this code under , and at click or keypres is better
>>

>>IF thisform.text2.value=ALLTRIM("Residential") AND thisform.text1.Value <   1    OR thisform.text1.Value>5
>>        =MESSAGEBOX("out of range")
>>            thisform.text1.SetFocus
>>ENDIF
>>IF thisform.text2.value=ALLTRIM("Business") AND thisform.text1.Value < 1 OR     thisform.text1.Value>4
>>       =MESSAGEBOX("out of range")
>>     thisform.text1.SetFocus
>>ENDIF
>>

>>thanks.
>
>
>

>lcText2Val = UPPER(ALLTRIM(thisform.text2.value))
>
>IF INLIST(lcText2Val, [RESIDENTIAL],[BUSINESS]) AND NOT;
>   BETWEEN(thisform.text1.Value, 1,  IIF(lcText2Val == [RESIDENTIAL] 5, 4))
>   =MESSAGEBOX("out of range")
>   thisform.text1.SetFocus()
>ENDIF
>

>About where you must put this code, I don't know becuase I don't know what you want to do and WHERE you want to do it.
>This is validation code and must be there where you validate the Data.