>One last thing. I put the code as you suggested, and it came back with table >in use or file in use.

Take the USE pay IN 0 and put it in the Load Event of the form. Or you may use the DE.
As much as possible, opening a table will only be done once. If you decide to close a single table though, make use of USE IN pay and not CLOSE ALL

>And is there a way that I can let the user know with a message "data is being updated" the progress bar causes to many problems.

WAIT WINDOW is enough IMO.

>
>John
>
>SET DEFAULT TO \EFG
> SET SAFETY OFF
> SET TALK OFF
> SET ECHO OFF
> SET DELETED ON
>
> USE pay IN 0
> SCAN FOR ins_co_nam = "AMERICAN UNITED LIFE" AND group_code = 'A01'
>
> REPLACE paiddate WITH THISFORM.TEXT1.VALUE,;
> fromdate WITH THISFORM.TEXT2.VALUE,;
> todate WITH THISFORM.TEXT3.VALUE,;
> servfee WITH .69
>
> REPLACE balance WITH amt_pre - servfee,;
> duecompany WITH balance posted with "P"
>
> REPLACE servfee WITH 0, percent WITH 0
>
> ENDSCAN
>
> SELECT * FROM test, pay WHERE test.ss_numb = pay.ssnumber AND pay.ins_co_nam;
> = "AMERICAN UNITED LIFE" AND pay.group_code = "A01" and AMT_PRE > 1 INTO Cursor;
> CuReport ORDER BY test.last_name
>
> IF _TALLY > 0
>
> *BROWSE
> REPORT FORM payment3b PREVIEW
>
> inResponse = MESSAGEBOX("Do you want to post this data For A01 AUL?",36,"E.F.G. POSTING OPTIONS!")
>
> IF InResponse = 6
>
> ***LOCAL loProgBar
> SELECT pay
> ***loProgBar=ProgBar()
>
> SCAN FOR GROUP_CODE = "A01" .AND. INS_CO_NAM = "AMERICAN UNITED LIFE"
>
> *** loProgBar.npercent=RECNO()/RECCOUNT()*100
> SCATTER MEMVAR MEMO
> INSERT INTO hist FROM MEMVAR
>
> ENDSCAN
> ENDIF
> ELSE
> MESSAGEBOX("FOUND NO RECORDS THAT MATCH YOUR REQUEST")
> ENDIF