Change following portion:
IIF(lcText2Val == [RESIDENTIAL], 5, 4)



>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.