>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
> thisform.opendataerror = .T.
>case nError = 1995
> thisform.opendataerror = .T.
>case nError = 1967
> * 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