IF EMPTY(tmonth) AND MESSAGEBOX(' Month is empty')=1 AND INLIST(VARTYPE(thisform.month.setfocus),"L","O")
    RETURN 0
ENDIF

>IF EMPTY(tmonth)
>=MESSAGEBOX(' Month is empty')
>thisform.month.setfocus
>RETURN 0
>
>***********
>
>iF EMPTY(tmonth),=MESSAGEBOX(' Month is empty') thisform.month.setfocus RETURN 0
>
>
>ENDIF