>I'm trying to apply the progress bar to this command button, and it comes back with an error message "Alias HIST" unknown or not found.
>Am I missing a reference, or am I expressing the code right ? If you have time.
>
>Thanks again
>
>John Parker
>
>
>
>LOCAL loProgBar
>
>CLOSE ALL
&& You nailed yourself...no more open tables.>SET PATH TO \EFG
>SET STATUS OFF
>
>USE \EFG\PAY IN 0
>SET FILTER TO GROUP_CODE = "A01" AND INS_CO_NAM = "AMERICAN UNITED LIFE"
>IF PAIDDATE== HIST.PAIDDATE .AND. HIST.GROUP_CODE == "A01" .AND. HIST.INS_CO_NAM == "AMERICAN UNITED LIFE"
&&Your error is here - you closed all the tables, then opened "PAY". Now you reference "HIST" but never USEd it after closing all the tables. Urp.
>MESSAGEBOX("THIS PAID DATE AND GROUP CODE A01 HAVE BEEN ENTERED, PLEASE TRY ANOTHER.")
>
>ELSE
>SELECT PAY
>loProgBar = ProgBar()
>SCAN
> loProgBar.npercent=RECNO()/RECCOUNT()*100
> SCATTER MEMVAR MEMO
> INSERT INTO HIST FROM MEMVAR
>ENDSCAN
>ENDIF
>
>
>CLOSE ALL
>RETURN