In addition to Hilmar's reply: you don't need to use macros in your code. Change each macro to (), e.g.

>>      OPEN DATABASE &pAirAcctDataBase
>>      SET PATH TO &pub_airacctdatapath

would become:

     OPEN DATABASE (pAirAcctDataBase)
      SET PATH TO &pub_airacctdatapath

In set path you have to use &

>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 ???