Dear John:

The following is the code in the lookup button click event:

* Lookup Button
SET ESCAPE OFF
DO actiwind WITH 'w_pickacct',.f. && creates window
SELECT wd_empl
SET ORDER TO TAG se_name
BROWSE FIELDS empno :H='Employee #' :R :15 ,;
lastnam :H='Last Name' :W=.f. :20 ,;
firstnam :H='First Name' :W=.f. :14 ,;
State :W=.f. ;
TITLE 'Select Employee' ;
WINDOW w_pickacct
ON KEY LABEL ENTER
DO setescon && sets escape on
RELEASE WINDOW w_pickacct
m_empno = wd_empl.empno
IF reccount() > 0
ThisForm.txtEmpno.ReadOnly = .t.
ELSE
ThisForm.txtEmpno.ReadOnly = .f.
ENDIF
ThisForm.Refresh

thanks
Bruce Strom


>In your button click event do you have?
>BROWSE
>Thisform.Refresh