Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Used()
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Used()
Miscellaneous
Thread ID:
00752852
Message ID:
00752861
Views:
14
First of all, used() requere ALIAS name, not the file name.
if !used('myfile')
sele 0
use myfile
endif

Another problem is that table could be open using alias name differ from the table file name. Then this may help:

?isused('myfile')

Procedure isused
Lparameter pcTableName
local retval
retval=.f.
pcTableName=alltr(upper(pcTableName))
release aa
if aused(aa)>0
Local iaa
for iaa=1 to alen(aa,1)
if "\"+pcTableName+".DBF"$ dbf(aa[iaa,1])
retval=.t.
endif
endfor
endif
release aa

return retval


>i have a function that i use in a number of forms. in it i need to determine if a certain file is open and if not, open it. code goes like this:
>if !used('myfile.dbf')
>sele 0
>use myfile
>endi
>the problem is that VFP goes into the IF even if the file is 'used' and gives an error message that says the file is already in use. any ideas on how to actually see if the file is open or not?
>tia!
Previous
Reply
Map
View

Click here to load this message in the networking platform