Hi,

Thank, I managed to pin point the problem lies with opening the
file in exclusive problem. Insteads of prompting file access denied,
it just give me the 'no parameter statement is found'

>Does it happen with any table? Will the procedure like this initiate an error?
>
>=adir(atemp, "*.dbf")
>for ia=1 to alen(atemp,1)
>use (atemp[ia,1]) shared
>?atemp[ia,1], " "
>??ISEXCLUSIVE()
>endfor
>
>
>>Hi,
>>
>>BTW, when my table is open by my program alone, it work fine.
>>However, when I manually opened the table using VFP3 in shared
>>mode, the ISEXCLUSIVE function will cause the message.
>>
>>
>>>ISEXCLUSIVE([cTableAlias | nWorkArea | cDatabaseName [, nType]])
>>>is a native foxpro function. So it looks strange, that it returns the error message.
>>>Because you are already sitting on the table, did you try just ISEXCLUSIVE()?
>>>
>>>>Hi,
>>>>
>>>>Recently, I was doing some enhancement for a VFP3 written old application.
>>>>When my menu call one of the form.
>>>>The form will check whether one of the table is open exclusive for packing,
>>>>if not, will prompt a message and return.
>>>>
>>>>However, I keep getting this message 'No parameter statement is found' on my
>>>>return statment, with my messagebox not working.
>>>>
>>>>My menu is calling this form using a procedure which I had added
>>>>a dummy parameter list, but it does not help as shown below
>>>>
>>>>DoBackup procedure called by menu option
>>>>========================================
>>>>
>>>>PARAMETERS pvAns
>>>>
>>>>DO FORM frmBackup
>>>>
>>>>
>>>>
>>>>------------------------------------------------
>>>>Part of FORM code that causing the above message
>>>>------------------------------------------------
>>>>
>>>>SELECT backup
>>>>IF NOT ISEXCLUSIVE("backup")
>>>> =Messagebox("File not in exclusive mode")
>>>> RETURN
>>>>ENDIF
>>>>
>>>>
>>>>Please advise how do I solve this simple problem.
>>>>Thank you