Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ISRLOCKED doesn't work for me
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows 7
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01635773
Message ID:
01635775
Vues:
76
>Hi Gang!
>
>Question..... I am having a brain fart here......
>
>I have in the Application a record I wish to be locked in a table called SS_IO.
>
>So, we use RLOCK and lock it. Cool.
>
>In another instance of the Application, we have another user who wishes to delete said record in SS_IO.
>
>So, when the code runs for the second user to delete the record ( what we do is run the command REPLACE status WITH 2 IN ss_io to filter the record out... it is not really deleted ), the code execution stops and the "Press ESC... record is locked" wait window appears... Cool...
>
>But, I'd like to catch this ahead of time when they press the delete button...........
>
>I placed this code at the beginning of the Delete button code...
>
>
>*TMT 05/03/2016 Check record to see if it is locked... if so, warn user and then exit....
>IF ISRLOCKED()
>	MESSAGEBOX('Cannot delete at this time.... the record is locked by another user..... try again later.',0+16,'Cannot delete')
>	RETURN 
>ENDIF 
>
>
>I thought ISRLOCKED() would catch this for the second user, but it doesn't. It says .F. for the second, but .T. for the first.
>
>Any ideas?
>
>Thanks in advance !!
>Tommy

Check the Remarks section of this command in Help

ISRLOCKED( ) returns a logical true (.T.) if the record is locked by the current application; otherwise a logical false (.F.) is returned.

NoteNote
ISRLOCKED( ) only returns .T. in the data session that applied the record lock.

So, in reality this function is not very useful as it doesn't detect if the record is locked by someone else.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform