* save record point if need
go top in income1
go top in expenses1
if eof('income1') AND eof('expenses1')
 messagebox('Please enter Income and/or Expenses!',0+16)
 return
endif
* restore record point if need