CLOSE all USE bill in 0 USE contact in 0 lcField = UPPER(alltrim(thisform.text1.value))&& char type replace IN contact ; FOR lcField==lookup(Evaluate("Bill." + lcField), lcField , Evaluate("Bill." + lcField) AND NOT EOF('bill')); val with VAL(bill.bill_value)thanks