General information
Category:
Coding, syntax & commands
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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only