hi,
thank you ,
i try to do this ,but i get error message (record is out of range);
*remark
at procedure activate at my form i put my table as under

SET TALK OFF
SET ECHO OFF

select 1
*use mstr
select 2
*use trans1
select 3
*use book1

select 4
*use book2
*zap
select 5
*use temp excl
THISFORM.TEXT9.VISIBLE=.F.
thisform.grid2.visible=.f.
THISFORM.TEXT10.VISIBLE=.F.
THISFORM.LABEL9.VISIBLE=.F.
SUM TOTAL TO THISFORM.TEXT13.VALUE

LPARAMETERS nRecNo
SET DELETED on
thisform.grid1.Refresh
lnRecNo = IIF( NOT EOF( thisform.grid1.value ) AND NOT BOF( thisform.grid1.value  ), RECNO( thisform.grid1.value  ), 0 )
*SELECT thisform.grid1.value 
select 5
COUNT TO lnRecCount FOR NOT DELETED()
IF lnRecNo # 0
  GO lnRecNo 
ELSE
  GO TOP
ENDIF

thanks.
m.qasem