Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Repeatable C000005 - try this
Message
 
À
10/09/2002 13:46:38
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00698912
Message ID:
00699098
Vues:
39
>Hi All,
>
>Sorry for the last post - dang send button got in the way...
>
>Try creating a form (base form class is fine) and adding an opendataerror property, initialized to .F. - Set the forms datasession to private. Add the following code to the LOAD() method.
>
>
if thisform.opendataerror
>   MessageBox("Someone is using the system exclusively")
>   return (.F.)
>endif
>
>Next up, open a file called test in the data environment. In the ERROR method of the data environment put the code.
>
>
>do case
>case nError = 1705	  && Access Denied
>	thisform.opendataerror = .T.
>case nError = 1995    && Unable to init data env
>	thisform.opendataerror = .T.
>case nError = 1967	  && Data Env already unloaded
>	* Do nothing - caused by a previous Init Error
>otherwise
>	ERROR nError,
>endcase
>
>At the command prompt, open TEST.DBF exclusive and run the form. Does yours die and excruciatingly painful death? Mine does every time. This method worked great in VFP6 but dies every single time in 7.0.
>
>Maybe I'm not phrasing my queries right, but I can't seem to find any mention of this issue anywhere out there. Is it just me? Have I finally lost it?
>
>TIA


Erik,

I didn't try anything myself, but a long shot would be the ERROR command. When you comment that one out, is the result the same ?
I'd say there is some recursiveness implied here, AND I saw that some bits have changed in VFP7 on this ...

Peter
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform