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
Bruce Strom
Prayer of St Ephrem:
O Lord and Master of My Life,
Take from me the spirit of sloth, meddling, ambition and vain talk.
But give me a spirit of prudence, humility, patience and love.
Yes Lord and King grant me to see my own sins and faults
and not judge my brother.
For You are Blessed Forever and Ever. Amen.