PRB: "Record Not Locked" with BROWSE NOEDIT or NOMODIFY

• Microsoft FoxPro for Windows, versions 2.5, 2.5a, 2.5b, 2.6
• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, 2.5b, 2.6

SYMPTOMS

Issuing a BROWSE command with the NOEDIT or the NOMODIFY clause with a shared database while you are setting the delete tag of any record except the current record produces the error message "Record not locked."

CAUSE

The record tagged for deletion does not match the current record pointer; as a result, the desired record cannot be locked prior to being flagged for deletion.

RESOLUTION

To correct the problem, issue an ON ERROR routine to trap the message prior to issuing the USE <database> SHARED and BROWSE commands. This routine will allow the tagged record to be selected even when it is not the current record.

   CLEAR
   ON ERROR DO errhand WITH ERROR( ), MESSAGE( )
   *** Errhand ***
   PROCEDURE errhand
   PARAMETER errnum,message
   If Errnum = 130
      On Error *
   Endif
   RETURN

MORE INFORMATION

Steps to Reproduce Problem

1. Issue the following commands:

         USE <database> SHARED
         BROWSE NOEDIT    && or BROWSE NOMODIFY
   
   

2. Click the delete tag of any record except the current record.