CLOSE ALL set talk off set echo off SELECT 1 USE MSTR LOCATE FOR NO=THISFORM.TEXT1.VALUE SELECT 1 USE MSTR LOCATE FOR NO=THISFORM.TEXT1.VALUE if !found() =messagebox("ÑÞã ÇáãæÙÝ ÛíÑ ãæÌæÏ") thisform.command1.visible=.f. thisform.command2.visible=.f. else thisform.command1.visible=.t. thisform.command2.visible=.t. M.DAT=DAT SELECT 2 USE TAX1 M.NETTOT=NETTOT m.s=monthnam LOCATE FOR NO=THISFORM.TEXT1.VALUE IF FOUND() set filter to no=THISFORM.TEXT1.VALUE .and. montno>=THISFORM.TEXT2.VALUE .AND. MONTNO<=THISFORM.TEXT3.VALUE DO WHILE .T. .and. no=THISFORM.TEXT1.VALUE SKIP M.NETTOT=NETTOT m.s=monthnam IF EOF() EXIT ENDIF ENDDO endif report form coptax1 preview endifthanks.