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 ???
If it's not broken, fix it until it is.
My Blog