I didn't analyze your code in depth, but perhaps the table is open. Try SET EXCLUSIVE OFF.
Hilmar.
>In my From. my button got such program.
> pAirAcctDataBase = pub_airacctdatapath + 'account.dbc'
> pSeaAcctDataBase = pub_seaacctdatapath + 'account.dbc'
>
> pAirPrg = pub_airacctprgpath + 'caloverdueamt'
> pSeaPrg = pub_seaacctprgpath + 'caloverdueamt'
>
> OPEN DATABASE &pAirAcctDataBase
> SET PATH TO &pub_airacctdatapath
> set database TO &pAirAcctDataBase
> SET PROCEDURE TO &pAirPrg additive
> pAirDueAmt = CALOVERDUEAMt(pCompanyCode,pDate)
> CLOSE DATABASE
>
>
> OPEN DATABASE &pSeaAcctDataBase
> SET PATH TO &pub_seaacctdatapath
> set database TO &pSeaAcctDataBase
> SET PROCEDURE TO &pSeaPrg additive
> pSeaDueAmt = CALOVERDUEAMt(pCompanyCode,pDate)
>
>Now. I can get the pAirDueamt and pSeaDueamt .
>BUT It prompt an error "Cannot Access the selected Table"
>I didn't put any tables in my form, and i use 'private data session"
>How can solve it ???
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)